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A PRIMO FORTH BETSLTfcSE 

ft FORTH rendszert a kovetkezS utasltdssal tolthetjuk be 

kazettdr6U 

LOAD 

az utasltds haszndlatdt a PRIMO felhaszndl6l kdzlkonyvben 

mestaldlhatJuk. ft rendszer betoltOddse utdn azonnal bejeleritkezlk? 

kllrva a rendelkez<*sre dll6 mem6rla nasysdsfdt Is. 

ft rolnta szavakat tartalmaz6 bemutat6 program taldlhat6 ezutdn 
a szalanoru fthhaz? hosw.-qzt Is betoltstlk* sdpeUuk le a kovetkeztt 
utasltdst* 
1 LOftD < RETURN) 

(ft "<RETURN>" a RETURN nevflt blllentytt lenyomdsdt Jelentl.) ft 
szdmlt6sfd>p a kayetkezS uzenettel vdlaszols 
SCR 1 olvasdsa, OK? 

Ha most RETURN-t utunkv mftkodnl kezd a kazetta betoltO rutin. 
Indltsuk el a szalasotr ds nyomJunk RETURN-t. ftz esyes tdroldsl 
esrysdsr (tovdbblakban screen* "szkrln") betoltdse ndhdny mdsodper- 
cet vesz Isrdnybe. ft program mestaldldsdt * karakterrel Jelzl a 
h6p. 

Mlutdn a screen betoltfldott? a 
SCR 2 olvasdscu OK? 

Cizenet lr6dlk kl? jelezvdn? hosry Ismdt <RETURN>-t kell utnunk. Ily 
m6don osszesen 7 db. screent kell beolvastatril? csak ezutdn 
dllltsuk le a masmdt. 
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1. ALAPUTASITASQK 



A FORTH nyelv elseuidtltdsdnak leskormyebb mbdja a sydkaplds. 
Htnthosy a FORTH pdrbeszedes (Intepaktlv) nyelv* le lehet iilnl ele 
es klsepleteznl. Ebben a kezelesl dtmutatftbcm sok fnlntapelddt 
taldlhatunk, amelyek szemleltetlk a FORTH nyelv kepesseselt. 
AJdnUuk* hosy Cn Is prbbdUo kl ezeket a saJdt szdmltbsepen. 

1.1. PARANCSBEVITEL 

Betoltes utdn a FORTH rendszer bejelentkezlkr es kozll> hosry 
mennyl szabad meroOrlahely dll per.de Ikezespe. A vlllos6 _ karakter 
(az an. kurzor) mlndlsr mes fas Jelermlr amlkor a seF vdr 
valaaLluen Informdcutt a blllentuttzetrfll. Ekkor be lehet sepelnl a 
RETURN-nel lezdrt parancs sorokat. A lesesyszepftbb utasltds* air.lt 
kladhatunk, az ures sor. Ha most RETURN-t nyomunk, a FORTH OK-val 
vdlaszoU mlnthosry ldtta» nines semml tennlval6JOf befeJezte az 
aktudlls sor feldolsrazdsdt, es dJ rorancsra vdp. Ezt 
klprbbdlhatJuk nehdnyszopf hosy Idssuk* FORTH-unk eU J61 epzl 
masdtf es flsyel pdnk. 

Mlvel a telrt Forancsokat a FORTH elSszor esy ldel*ler.es 
tdrol6ba (bemeneti puffep) helyezlV mlndaddls* amis RETURN-t nen. 
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utdttimk* LehetSs6sunk van arra? hosy mesvdltoztassuk az utasltdst 
vasy kUavltsuk a »6peL6sl hLbdkat. ft <-- . bLLLentyfc seslts6s6veL 
toroLhetJuk kL a nen klvdnt karaktereket (mlnderi Lenyamds esry 
jeLet toraL a kurzar eLBtt)* maJd dira bes6peLhetJuk a sor 
hdtraldvtt r6sz6t. ft bemenetl puffer sosem toriadlk? hosy a 
kordbban bes6pelt Lnformdctdt .- vasy armak es?y r6sz6t - liJra 
foLhaszndLhassuk? s6peL6sL munkdt takarltva mesr. ft --> blLLentytt 
LenyorodsdvaL esry kordbbl karaktert hlvhatimk eL5„ PL.: teayuk feL? 
hosy a kLadott parancs 
14+. < RETURN) 

voLty 6s a #6p vdLaszdbdL kLderut* hosy vaL6Jdban 2 4+. -ot 
akartunk IrnL. Ekkor elesendfl a 2 bLLlentyllt mesmyomnt? maJd 6 db„ 
--> hatdsdra a k6pem'y5n mesJeLenlk a 2 4 + . sor? am It RETURN-neL 
6rv6nyesLtheturik., LehetBsdsr van tovdbbd a puffer be karaktereket 
beszdrnt (SHIFT --> >* 6s onnan karaktereket toroLnL (SHIFT <-- ). 
PL- most a 

SHIFT—) 1 — > »->'■—> — > — > ~> — > 
sorozat hatdsdra a 12 4 + . parancsot? maJd 
SHIFT <-- SHIFT <-- 3 ~> —>-->-'- • 

belrdsdvaL a 3 4-. utasltdst kiildhetJuk el RETURN-nel. (ft - JeL 
a szikoz blLLenytlt JeLzL.) Haszndlhatjuk szavesrbevLteLfcor mdsra 
CLS bLLLentat Isr hatdsdra torLttdlk az esrftsz k6pernyd 6s Cura 
kezdhetJuk a sor *6peL6s6t Is. (Term6szetesen tovdbbra ts 
vLsszanyerhetJuk a kordbban belrtakat.) 

Hunka kozben eLttforduLhat* hosry prosrramunk v6steLen ctklusba 
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keruU vasy o rendszer mds ok mlatt "lemerevedlk" <pl. kazettdrdl 
vald betdltdskop). ft RESET somb hatdsdra a FORTH esy dn. 
meleslndltdst haJt vdsre* azaz dsy kepiil alapdllapotbar hosy a 
prospamJalnk nem vesznek el. . 

1.2. SZAVAK 

ft FORTH utasltdsok alapesysdsdt sz6r.ak nevezlk. Mds 
prosramozdsl nyelvek mesfelelti klfeJezdsels utasltds» parancs» 
kulcsszd? (al>prosram» szubrutln» eUdrds? stb. Mlutdn befeJeztuk 
e<*y sop besdpeldsdt ds RETURN-nel .lezdrtuki- a FORTH rendszep 
drtelmezBJe (kulso Interpreters) veszl dt a sort. Felbontja 
kulondlld szavakra* amelyeket qz eloforduldsuk sorrendJdben few 
vdsrehaJtanl. Mlnden llyen szdnak van NEMEi- amellyel hlvatkozha- 
tunk rd» ds van esy DEFINrCIdUA» amely mesntiandja!- hasy mlt cslndl. 
fthol a szd nevdnek mesfeleUS karaktersorozat mesJelenlkj az esyben 
hlvatkozdst jelent az adott szdra. Besdpeldskor az esyes szavakat 
szdkdz <" ") vdlasztja el esymdstdl. 

ftmlkor az drtelmezo dolsozlk a soron* elttveszl a kovetkezti 
szdt (amelyet vasy szdkoz vasy a sop vdse kbvet). Ezutdn vdsrlsndzl 
az Isaert szavakat tartalmazd An. szdtdrt* hosry klkeresse* ml 
epiriek a szdnak a "jelentdse". Ha slkepesen mestdldlta? vdsrpehaJtJa 
a deflnlcldban rdszLtetteket. Ha nines a szdtdpban az adott 
jelsopozattal esyeztt nevtt szd» a FORTH feltdtelezU hasy esy 
szdmot sdpeltunk bej ds mesklsdrll annak drtelmeznl. Ha az 
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aktudlls szdmrendszerben n©m l^tezhet tlyen alakik szdm* "Nem 
def Lnldlt sz6" htbauzerietet kapurik* ami azt -jelentlr hosy nem tud 
az adott utasltdssat az drtelmezB mtt kezdeml. Ekkor a rendszer CiJ 
parancssort vdr* amlt a kurzor Cura ineajelendse ts mutat, 

A sz6tdrban Lnduldskar csak olycm szavak vannak* amelyeket a 
rendszer masa bocsdt a felhaszridld rendetkezdsdre. (Ezek 
falsorotdsdt t. a Fiteseldkben. > Termdszetesen a felhaszndl6 ezt 
tetszfltesesen ktbBvlthetl olyan AJ szavak tdtrehozdsdval 
<def InldtdsdvaUr amelyekben a mdr IdtezB szavak bdrffietytkdt 
fethaszndlhatja. (BBvebben I. az 1.7. feJezetet.) 

A szavak nevdberi bdrmUyen Ldthat6 karakter szerepethet* 
klvdve a szdkozt. E»y ndv tetszBlesesen hossztVls lehetr de csak 
az elsB 31 karakter kerul tdroldsra? tehdt kdt kutonbozB sz6 etsB 
31 karaktere nem e^yezhet mesr. 31 karakter Isfen sob Isry 
lehetBsdsunk van olyan nfcveket adnl* ametyek utatnak az LUetB szb 
funkcldJdra. A szavak kls- ds nasrybetttvel esyardnt besdpelhetflk. 

'1.3. SZ AMOK 

A szdmok tetszfllesres szdmrendszerben klfeJezhetBk <2~tBl 
36- Is). Bekapcsaldskor a rendszer tlzes szdmrendszert vesz feL 
Ezt azonban bdrmtkor mesvdltoztathatJak a DECIMAL Lit. HEX szavak 
valamelylkdveU vasy tetszflleses mds szdmrendszert Is elBlrhatunk. 
Ezutdn ebben a szdmrendszerben lesz drtelmezve mlnden belrt szdm* 
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6s kllrdskor is ennek mesrfeleltt formdtumot kapunk. Altaldban 
javasolhati* hosy vdlasszunk esfy szdmrendszert* 6s ahhoz tartsuk 
masimkat v6srl* a prosramozds sordn- Ezzel elkerulhetiiink blzonyos 
hlbdkat* mint pL hosry elfelejtjuk* ml az aktudlis szdmrendszer* 
6s mdst trunk be val6Jdbam mint amlt szeretndnk. 

A szdmokat pozltlv va*y nesratlv e»6szekk6nt ad hat J uk mes. A 
pozltlv. (elttJeltelen) szdmok 0- -* 65535- Is terJedhetnek? az 
elttJeles es6sz szdmok -32768 * 32767-lsr. Lehettts6sr van dupla 
pontossdsCi szdmok haszndlatdra Is? amelyek eltJJeles es6~ 
szek -2147483648 •* 2147483647- Is. A dupla pontossdsik szdmokat 32 
blten dbrdzoUa a st6p* 6s mesaddsukkor a szdm r6szek6nt es^y 'V-ot 
kell elhelyeznl. Pl.s "437" szlmpla* ".437" vasry "43.7" dupta 
pontos szdmokat jelentenek. 

Amennylben olyan szdm6rtdket s6pelunk be* amely az adott 
szdmtartomdnyba nem f6r be? Tdlcsordulds! hlbatizenetet kapunk. 

Mlnthosy a FORTH mlnden szdmot kettes szdmrendszerben tdrolr a 

szdmrendszer alapszdmdnak c6lszertt vdltoztatdsdval konverzl6t 

haJthatunk vdsre az esyes szdmrendszer ek kozott. P6lddul tizes 

alapr6l 16-osba dtvdltdshoz s6pelj(ik be a kovetkezOt* 

DECIMAL 191 HEX . < RETURN) 

mire a »6p vdlasza* BF OK (Vlsrydzzunk* mert tovdbbra Is 16-os 
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szdmrendszerben maradunk!) 

i.4. A PARAMETER STACK 

A szdmlt6#6pek prosramozdsa kozben nem el6s csak azt 
"mesmondanl" a sr6pnek> hosru---m.lt cslndUon <ez a prosnram)* hanem 
rendelkez6s6re kell bocsdtanl azon adatok halmazdt Is* amelyen a 
mesfelelO mttveleteket v6sre kell haJ-tania. Ezeket az adatokat 
paraimHereknek Is nevezzuk. A FORTH szavak tdlnyom6 r6sze a 
paramdtereket az An. parameter stackben <stack~veremr "sztek") 
vdrJa? 6s az eredm^nyeket Is oda helyezl. 

A parameter stack esry LIFO (i) UpusA stack. Ez a 
tdral6celldknak esy olyan kulonlesres elrendez6ser aiftl "eml6kezlk" 
arra a sorrendrej amelyben az esyes 6rt6keket belrtdk. A k^stJbb 
belrt adatokhoz lehet mlndls* elttbb hozzdJutnl. K6pzeUuk el? hosy 
ssy Irdasztalra az ellnt6zemdtt Iratokat d<yy teszlk U? hosy 
esyszertten esymdsra helyezlk ttket. Amelylk Irat a Iesrk6s8bb jdtt> 
az lesz lesfelCiU 6s akl feldolsrozza az aktdkat* ezt veszl eUJszor 
k6zbe. Ha az admlnlsztrdtor 6ppen doLsrozlk esy anyas-mn* 6s 
bedllltanak e#y surstis aktdvaU akkor a k6zbem I6vti Irat 
vlsszakerul a kupac teteJ6re. Ha esy m6s sursf5sebb akta Jon? akkor 
az elSzB mssy a halomra* sit- BefeJezve valamelylk Irat 
fotdolsozdsdt lly mbdon blztosan a kovetkezB lessiirsbsebb aktdt 



(l)n Last In First Out? azaz ami utoUdra bementr az Jon kl 
elsttnek. 
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lehet elttveimlf vasyls azt> amlt lesnitoUdra tettunk az uratkotes 
teteJdra- 

FORTH-ban esy szdmot dsy tehetunk a stack teteJ6r©iF hosry 
esyszerften be^peUCik a parancssor r6szek6nt az aktudlls 
szdmrendszerben. A "■" nevtt FORTH sz6 pedis elveszl a stack 
teteJ6n 6116 szdmot* 6s kllrja azt a k^pernyttre (szlntSn az 
aktudUs szdmreridszerben). 
PtHddul sufreUuk be a kovetkezb sorts / 

2 4 6 8 < RETURN) 

ft stackben most a kovetkezttk vannak* 8 

6 

4 

2 
Ha bes6i»eUuk» hosa: 
. (RETURN) 
akkor a vdlaszs 8 OK lesz. 

ft stackben ezutdn a kovetkezBk leszneks 6 

2 
Most L/TJuk be* 
. . . (RETURN) 6 4 20K 
ft stack klurult. Ha mdsls . <RETURN>-t i\tunk» a a6v . ? Ores a 
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stack! hlbauzenetst ad- 

A FQRTH-ban a parameter ' stack en klvill van m6s esy mdslk stack 
Is? amlt 'RETURN STACK'-nek (I> hlvnak* 6s az 6rtelmeztt haszndUa 
vlsszat6r6sl cLmek tdroldsdra. Mlnden hlbauzenet klurltl ulndkdt 
stacket. 

1.5. ARITHETIKAI UTASITASOK 

A PRIMO FQRTH-ba b<?6Ktett arltmetlkal utasltdsokat az 1. 
tdbldzatban fosrlaltuk ossze. (Ezeket haszndUuk a lesfsyakrabbaru 
Tovdbbl hasonld utasltdsokat taLdLhatunk m&s a Fuaseldkben.) 

Mlvel ezek a szavak Is a parameter stackbcm vdrjdk az 
adatokatf haszndLatuk az An. fordltott .Lemuel dbrdzoldsm6d 
seslts6s6vel tart6nlk* vasyts a mQvetet operandusalt a mttvelet 
elvdsz6se ELOTT kelt a stackbe helueznl. 
PI. k6t szdmot osszeadnt 6s az eredm6nyt kllrnt a kovetkezOk^en 

keLLi 

DECIMAL 8 31 + . < RETURN) 3? OK 



(l)n Return~vLsszat6r6s ("rltorri") 
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N&zziik mes* az esryes r6szek hatdsdt: 

8 A stackre teszl az 8~as 6rt6kc?t. 

31 A stackrs teszl az 31~es &rt£ket. 

+ Leveszl a stack k^t lesffelsti elem6t* osszeadJa 6ketr majd 

az eredm£nyt a stackbe teszl. 

A stack m6lys6sre Bsszess6sr6ben tehdt 1-steel csokkent! 

Elveszl a stack teteJ6ri levtt 6rt6ketf majd kllrJa* 39 OK. 
U<§#eredm£nyberi a stack pontoscm ftsry maradt? mint a parancssor 
kladdsa el5tt volt* 

A FORTH az osszehascmllidsokat (2- tdbldzat) az Cm. pazltlv 
loslka szerlnt kezell. Az eredm§T»y loslkal 6rtetmez6se5 
Q - ham Is 

nem - israz. 
Ssszehasorilltdsndl (mint < > = stb.) Jesryezzuk wear* hosry amlt 
szokds szerlnt a reldcl6Jel Jobb oldaldra trunk? azt kell a 
stackbe le#felutre tennis mlsr a bal oldall parameter felulrtil a 
mdsadlk lesyeru Pis A 3B < azt vlzssdlia? hasy A<B? eltdvolitja 
mlndkdt £rt§ket a stackrBl 6s csak a mesfelelti loslkal 6rt6kei 
hasryJa ott„ 

1.6. STACK MOVELETEK- 

A les^yakrabban v^rehaJtott utasltdsok esry mdslk csopartJdt 
alkotjdk a stack mttveletek. A lesrfantosabbakat a 3. tdbldzatba 
syftjtottilk ossze. Ezeket dltaldban arra haszndUuk* ho»y mlndlsraz 
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dltalunk 6rpem mesklvdnt sorrendet alakltsuk kl a stackbem 
an£lkulr hosy a benns tdro It parameter ek bdrmelylk<R elvesztengnk. 
Erdemes ezen szavak haszndlatdt alaposan besyakorotnU mert a 
kdsObblekben l*en J6 szolsdlatot tesznek. 

Mlkozben dolsozunk* k6t alapvetti szabdlyt mind I* vesryunk 

"flsryelenbes ' 

1. Mlndem ami bekerult a stackbe* jojjon Is kl onnan. 

2. Sose prdbdlJunk mc?s tobb £rt$ket elvennl a stackrttU mint am It 
rdtettunk. 

1.7. OJ SZAVAK BEFINIALASA 

Mint emlUettuk? a FORTH rendszer dltol "ktezen klndlt" 
szavakon klviil a felhaszndld Is deflnldlhat i\J szavakat. Tesytlk 
fel> hosry munkdnk sordn syakran van szuks6srunk array hosy esy szdm 
kob6t mesrhatdrozzuk* I'seir esryszerft olyan szdt Utrehoznl* amely 
ezt elv6srzl. 

5 KOBE DUP BUP * * . 5 < RETURN) QK 
N6zzuk mes* mlt cslndlnak az esyes komponenseks 
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: OJ sz6 beeKtdsenek a kezdetet jeloll. 

KOBE Az lUomran deflnldland6 sz6 neve < amity en neven a 

sz6tdrba bekeriil majd). 
DUP DUP * * . Azok a <mdr meslevo) FORTH szavak, amelyek 

sorozatdval Lesz az a J sz6 hatdsa azonos. 

(Tulajdonkeppen azt IrJa le» nosy nit kell tennl a 

sz6 vesrehaJtdsakar.) 
; Befeiezl a deftnlcl6t. Az ezt kovettt szavak dJra 

vesrehajtdsra keriilnek. 
Mlutdn elkeszltettuk a fentl deflnlcldt* bdrmlkor klszdmlthatJuk 
es kllrathatJuk esy szdm kobet. PL: 
4 KOBE <RETURN> 64 OK 
3 KOBE < RETURN) 27 OK 
Ml tortent volna, ha a KOBE sz6t azelfitt haszndliuk, mlelott a 
deflnlclOJdt besepeltiik? A FORTH KOBE ? Nem deflnldlt sz6 
hlbatizenettel vlsszautasltotta volna. Szerencsere a kezdo 
prosramoz6 szdmdra a FORTH az etore deflnldlt szavak sazda* 
sz6tdrdval rendelkezlk. Pelddul a kovetkezo meslevfl es Isren 
sryakran haszndlt szdnak: i+ (amely esrsyet mesnoveli a stack 
tetejdn levfl erteket) az aldbbl deflnlcldt kellene adnunkt 

s i+ i + ; 

Ha most a fdntl meshatdrozdst. dJra besrepeUuk, az 1+ (Mdr 
Idteztt nev) f Isyelmeztetdst kapjuk» amely JelzU nosy llyen nev 
mdr taldlhatb a szdtdrban. Ez nem feltetleniil baJ (bdrmely kordbbl 
sz6 deflnlcldjdt mesvdltoztathatJuk), de dltaldban Isyekezzunk 
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elkerulnl. Az 6rtelmeztl mind is a lesrutolsd azonos nevft szdt 
taldUa mesr. Vlsrydzzunk vlszont array hosfy ha esry mdr IdtezB sz6 
mesraddsakor hlvatkoztunk valamely szdra? akkor ez a hlvatkozds nem 
vdltozlk roesr att&l> hasry a hlvatkozottal azonos nevft dJ sz6t 
def Inldlunk. PI. ha belrjuk* hosry 
s 1+ 2 + i 

ettOL az osszes eddlsr def Inldlt sz6 helyes marad? csak amlt ezutdn 
Irunk mesr <6s haszndUuk benne az 1+ szdt) fosr furcsdn mQkodnL 

Elttfordulhat* hosry esry def In I eld nen f6v kl esry sorba. Az a 
fontos csakr hoary a sorban mlnden sz6 t©Ues esfdszfben be lesryen 
shelve? ekkor nyusodtan elkuldhetjuk a r6sz-def Inlclit 
RETURN-neL A sor feldolsrozdsa utdn a FORTH vdrnl fosrja a 
folytatdst* amlt az Is jelez* hosry nem Lr 0K~t. 

1.-8. M0KBD6SI MODOK 

A FORTH szovesfdrrtelmeztUe k6t m6dban mflkodhets kozvetlen 
v&arrehajtdsl 6s fordltdsl mddban. 

Kozvetlen v6srrehaJtdsl mddban a parancssor mlnden szavdt 
Isryekszlk klkeresnl a sz6tdrb6l 6s azonnal vdterehajta Oket, 

Ezzel szemben fordltdskor a szavak tiUnyom6 tobbs^sre new keriil 
v^srrehaJtdsra* Ezek helyett esry rdjuk utald hlvatkozds lesz a 
szdtdrba befardltva. A s sz6 az 6rtelfnezflt fordltdsl dllapotba 
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helyezl* a 5 hatdsdra pedis vlsszadll a kozvetlen vdsnrehaJtdsl 
m6d. 

Az6rt* hosy J6L rneskiildribQztethessuk a kozvetlen v6srehajtdst 
a fordltdst6l> pr6bdUuk kl a kovetkezti p6lddkats 
905 ■ < RETURN) 905 OK 

Mint IdtJuk? ez az utasltds azonnal v6srrehaJt6dott (a szdmlt6s6p 
rosfton vdlaszolt). 
: IRD-KI 905 . * < RETURN) OK 

Ldtsz6la» nem tort6nt semml* valijdban a sz6t az 6rtelmezB 
lefordLtotta. Ha ez utdn lelrJuk* ho*y IRB-KIj a lefordltott szd 
v6*rehajtddlk> 6s kllrJa a klvdnt eredmdnyt* 
IRD-KI < RETURN) 905 OK 

Ahhozr hasy syorsan tanuUunk? be kell sryakorolnl az alapvettt 
FORTH szavakatf 6s bdtran kls6reUimk me» olyan tij deflnltlikat 
Lrnlf amelyekkel blzonyos dolsokat esfyszerOtbben lehet mesrcslndlnl. 
Fejlesszunk kl masrunknak esry olyan jelol6srendszert» amellyel 
roszlthetJuk vdzlatszerften mlndazt* amlt cslndltunkr hosry ne 
essunk usryanabba a hlbdba tobbszor Is. 

FORGET: ezzel az utasltdssal torolhetiink a sz6tdr v6s6bfll (a 
lesutoUdra mesadott szavak kozul) esfy vasy tobb sz6t. PL: 
def InldUunk hdrom sz6t a k6vetkezak6ppen« 
: SZ01 ... 5 <RETURN) 
: SZ02 ... -J < RETURN) 
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: SZ03 ... '? < RETURN) 

Ezutdn SZ03-at a kavetkezokdppen lehet kltorolnl: 

FORGET 8Z03 < RETURN) 

SZ02-t vlszont onmasdban nem torolhetjuk! A tor 16s usaanls mlndls 

a meaadott sz6ra 6s az osszes* kdsobb deflnldlt szora vonatkozlk! 

Tehdt 

FORGET 8Z02 < RETURN) 

hatdsdra SZ02 6s SZ03 tdrlodlk» de mesrmarad SZ01. 

EUJforduU hoary esy uj szo meslrdsa kozben hlbdzunk <nem 
Idtezo szdra hlvatkozunkf nem zdrunk le esy vezdrldsl strukturdt> 
stb.). A sz6t dJra klvdnJuk lrnl» de el&tte szeretndnk kltorolnl a 
hlbds deflnlcldt. A FORGET-et haszndlva azonban hlbattzenetet 
kapunk» mlntha az a sz6 nem Idtezne. VLIST-tel kllratva a 
rendelkezdsre dlld szavakatr a kltorlendo szdt Inverz betukkel 
kllrva taldUuk mes. Ilyenkor adjuk kl a SMUDGE szdtr 6s ezutdn 
mdr vdsre lehet haJtanl a torl6st. <A ndv pedis InverzbtH 
v Isszavd Itoz I k nor md I Id . ) 



FELADATOK 

i. Ml a kulonbsdsr a DUP + 6s 2 * kozott? 

2. Ml a kulonbs6s a DUP * DUP * 6s a DUP DUP * * kozott? 

3. Ml a kulonbs6» az OVER SWAP 6s a SUAP OVER kozott? <"szvop") 

4. Ml az 6rtelme az OVER OVER sorozatnak? 

5. Ml az 6rtelme a ROT ROT sorozatnak? 
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Sz6 



1. TABLAZAT 
ARITMETIKAI MOVELETEK 



Lelrdsa 



Pdlda 

stackre 

elotte 



Pdlda 

stackre 

utdna 



* 

/ 

1+ 

2+ 

ABS 

MAX 

MIN 

NEGATE 

MOD 

*/ 

*/MOD 

+- 

/MOD 

AND 

OR 

XOR 



bsszeadds 

K worlds 

Szorzds (eUJJeles) 

Osztds (eUJJeles) 

Essyel novelds 

Kettttvel novelds 

Abszoldt drtdk kdpzds 

A ket lesfolsfl drtdk nasyobblka 

A kdt lesfolstt ertek klsebblke 

ElOJelvdltds (kettes komplemes) 

Maraddkkdpzds (osztds raaraddka) 

Mdsodlk 6s harmadlk drtdk szorzata 

osztva az elsttvel 

Ua. csak a maraddkot Is adJa 

Lesfolso drtdk elttyeldvel szoroz 

Mdsodlk drtdk osztva a lesrfelsovel 

maraddkot ds hdnaadost Is ad 

Bltenkdntt toslkal £S mttvelet 

Bltenkdntt laslkal MAGY mttvelet 

Bltenkdntt KIZAR6 VAGY mftvelet 



9 
9 
9 
9 
9 
9 



Teto 
6 2 



6 
6 
6 
6 
6 



9 -6 
9 6 
9 6 
9 6 
9 6 



2 
2 
2 
2 
2 
-2 
2 
■o 

2 
2 



9 6 2 
9 6 2 
9 6-2 



Tet6 
9 8 
9 4 
9 12 
9 3 



9 6 
9 6 
9 -6 

9 

9 
9 6-2 

9 



3 
4 
2 
6 
2 



27 

27 © 

9 -6 



9 6 2 9 3 

9 6 3 9 2 

9 6 3 9 7 

9 6 3 9 5 



Esydb, valamlnt duPla pontossdsrd ds kevert mtiveleteket Is 
taldlhatunk a Fusseldkben. Ez utdbblak D, M vasry U bet&vel 
kezdOdnek. 
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Sz6 

< 

> 

0= 

e< 



2. TABLAZAT 
OSSZEHASONLne MOVELETEK 



LeLrds 



ElBtte 



Ha a mdsodlk a stackben klsebb* mint 

az elstW -1-et ad» esyebkent 0-t. 

Ha a mdsodlk nasyobb* nit az elstt* 

-1-et adf earyebkent 0-t. 

Ha a ket lesfolstJ ertek esyenld» 

-1-et adr esyebkent 0-t. 

Ha a lesrfolstJ ertdk 0» -1-et adf 

esyebkent 0-t 

Ha a lesfolstJ ertek nesfativ? 

-1-et ad* esyebkent 0-t 



Utdna 



9 6 2 9 

9 6 2 9-1 

9 6 2 9 

9 6 2 9 6 

9 6 2 9 6 



Sz6 



3. TABLAZAT 
STACK KEZELO UTASHASOK 



Lelrds 



Elotte 



Utdna 



DROP 

DUP 

?DUP 

OVER 

ROT 
-ROT 
SUAP 
.R 



Meslsmetll a 
ha az nem 



KllrJa a lesfolsB erteket 12 3 

EltdvolltJa a lesfolsfl erteket 3 2 1 

Mesflsmetll a lesfolsB erteket 3 2 1 

lesfolsB erteket* 3 2 1 

vasy 3 2 
Meslsmetll a mdsodlkat a stack 

teteJen 3 2 1 

MesforsatJa a folsfl 3 elemet 4 3 2 1 

VlsszaforsatJa a folsB 3 elemet 4 2 13 

Mescserdll a ket fBlstt elemet 3 2 1 
A mdsodlk erteket jobbra Isa- 
zltva IrJa a lesfolsB elem dltal 

meshat. szelessesflt mezBbe 3 
A return stack teteJet a <RS) 

paramdter stack be mdsolJa 1 



2 1 

20 30 

2 3 



3 
3 



2 
2 
3 



1 
3 
1 



2 
2 
1 



1 1 

2 



3 2 12 
4-2 13 

4 3 2 1 
3 12 



(RS) 20 30 
1 2 3 30 



A Fiisselekben taldlhatunk esyeb stack kezelB utasltdsokat Is. 
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2. ADATTERGLETEK LEFOGLALASA 



A FORTH rendszer lehetSve teszt szdmunkraf nosy a meadrla 
blzonyos rdszeit lefoslalhassuk konstansok, vdltozdk vasry tombok 
szdmdra. 

2.1. KONSTANSOK 

Ha blzonyos konstans drtdkeknek nevet klvdnunk adnU a»eU«el 
kdsobb hlvatkozhatunk rdJuk, a CONSTANT szdt haszndLhatJuk. 
Lessyakrabban oLyan adatokat szoktunk IU »odon ndvvel eUdtnl, 
a»et«eket syakran haszndlunkr es a neviiket esryszerftbb LelrnU »in\ 
masukat a szdmokat uJra elOkeresnl? vasry ha annak a konstansnak az 
erteke fiisrsr a sreH kornyezettol. 

PdldduL a 360© CONSTANT SEC/H <RETURN> OK letrehoz esry ui 
szot, amlnek a neve SEC/H, es a 3600 erteket rendell hozzd. Mlutdn 
ezt a deflnlctdt besdPeltuk, a SEC/H Utrdsa dPPen dsry 3600-at 
tesz a stack teteJere, »lntha 3600-at trtunk volna. PL* 3 SEC/H 
* klszd»UJa/ ho»y 3 6rdban hdny adsodwrrc van. Ter»6szetesen esry 
konstans ertekdt nemcsak kozvetlenul adhatiuk mest hanem a staO- 
teteJen az drteket »ds m&don ts elodUlthatiuk. PI* 6© DUP * 
CONSTANT SEC/H OK andlkiil tdltl be az ordban Uv5 ftdsodpercek 
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szdmdt a konstcmsba* hosry Idtndnk a konkr6t 6rt6ket. 

FlaryeUCmk arra? hoary mlutdn e»y konstonst def Inldltunk* cmnak 
(blndrls) 6rt6ke fusrsretlen lesz az aktudlis szdmrendszertai. 

2.2. VALTOZOK 

A VARIABLE Cverl6bl") FORTH sz6 e*y olyan tdrol6helyet 
deflnldU amelynek drt&ke a kdsttbblekben val6szlnttles vdltoznl 
fosr. A tdroldhely mdrete k6t byte <16 bit). TesryQk fel» hosy 
Jdtdkprosrranunkban oz eredmdnyt esry vdltozdban klvdnJuk tdrolnl. 
Ekkor IrJuk be» ho»y 
VARIABLE EREDMENY < RETURN) OK 
t 
kezdetl 6rtdk 

A vdltoz6ra a kdsObblekben a nevdvel hlvatkozhatunk. Aztr hosy 
ntt klvdnunk term I vele* az utdna kovetkezO szd mutatJa »es. Ha 
esry vdltoz6 drtdkdt a stackre klvdiwuk term I > az & <i) szdt 
haszndUuk. Pl.s az eredadnyunket az EREDMENY & < RETURN) 
paranccsaL tehetJuk a stackre. 

Amenity Iben a vdltozdnk drtdkdre vasryunk kivdncslakr a "?" szdt 
cdlszerd haszndlra. PL.: EREBHENY ? <RETURN> OK 



<l>n et-Jel. 
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Ha a vdltozd drtdkdt mddosltanl akarJuk, tesyuk be el5szor az 
dJ drtdket a stackbe* IrJuk le a vdltozdnk nevdt, maid haszndliuk 
a "!" sz6t. PL.* ha az eredmdny drtdkdt 100-ra klvdnJuk dllltanl» 
sepeUuk be: 10O EREDMENY ! <RETURN> OK 

A "+!" sz6 az adott vdltozdhoz hozzdad esy 16 bites erteket. 
Pdlddul ha az eredmdnyunket szdzzal mear klvdnJuk novelnl: 10© 
EREBHENY +! < RETURN) OK 

HesrJesryzeseks 

1. Esy vdltozo nevdnek Lelrdsa a vdltozdnak mesfelelO 16 bites 
tdrrekesz clmdt helyezl el a stackben. Az "&" pontosabb 
deflnlcldJa szerlnt a stackben taldlhatd drtdket klcserdll az 
annak roesfelelb cl»r6l elttvett 16 bites szdmnial. A "!" a stack 
teteJdn lev6 drtdket clmnek teklntl, ds erre a clmre teszl le a 
stackben mdsodlk szdmot» sit. 

2. A "?" deflnlcldJas : ? & . i 

3. A raramdter stack cdlszerft felhaszndldsdval a »,unkavdltoz6k 
szdma ielentttsen lecsbkkenthetO. 

2.3. AZ AKTUALIS SZAHRENBSZER MEGVALTQZTATASA 

Az aktudlls szdmrendszer alarszdadt a FORTH esry BASE <"bdz"» 
alaP) nevQ vdltozdban tdrolia. A HEX III. DECIMAL szavak ennek az 
drtdkdt mddosltidk. Amennylben a tlzes vast* tlzenhatos 
szdmrendszeren klvul »ds alappal klvdnunk dolsoznl, IrJuk dt 
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kozvetlenul a BASE vdltozd 6rtdk6t. A szdmreFid&zer alapszdma 2 6s 
36 kozott bdrml lehet. Pdlddul ho kettes alappal akarunk szdmolnl: 
2 BASE ! < RETURN) OK 6s mlnden tovdbbl kllrds a kettes 
szdmrendszernek me?felel5en fo» iortdnnt. Me feledJukr hoary az 
adatok nesaddsa Is kettes a lappa t tortdnlk* tehdt ezutdn pL 
nd»yes szdmrendszerbe: 100 BASE ! < RETURN) OK t&rhetunk dt. 

2.4. TBMBBK 

A tombok Isen sok alkalmazdsban Jdtszanak fontos szerepet. 
Pdlddul 10 vdltoz6 <T0> Tl> T2t stb.) helyett cdlszerClbb esy T~n 
kezdtidttr 10 e»y»dst kovettt elemet tartalmazd elrendezdst 
haszndlnl. Ez nemcsak az elenek rusralmasabb kezel6s6t blztosltja* 
hanem Idnyesresen jobb mem6rla klhaszndldst Is lehettivd tesz. Az 
esryes elemeket azutdn mesrfeleltt clmszdmltds dtJdn lehet eldrnl. 

Tdmbok szdmdra az ALLOT sz6vaL foslathatunk helyet a 
szdtdrban. Pl.s a fentl T tombres 

VARIABLE T 18 ALLOT < RETURN) OK 
Az esyes rdszek hatdsa: 

VARIABLE T esy k6tbyte-os T nevd vdltozdnak fosrlal helyet. 
18 18-at tesz a stackre. 

ALLOT tovdbbl 18 byte-ot fosrlal le a tomb elemel szdmdra. 

Az n-edtk tdmbelemet a kovetkez5k6pperv drhetjiik el: tearyuk 
BME - KSZK COSY 



PRIMO FORTH 



- 22 



ADATTERGLETEK 



n-et a stack teteJdrer »aJds 2 * T + & < RETURN) OK 

2*5. EGY6B HEM0RIAM6VELETEK 

A tovdbblakban n6sry olyan szdt Isroertetunk* amelyek 
segltst&dvel a memArla tartatmdt kozvettemil mddoslthatJuk: 
i« CMOME A stack tet©J6n I6vtt 6rt6k dltal mesrhatdrozott szdmd 

byte-ot moz&at dt az esrylk memdrlaclmrOl (harmadlk a 

stacken) esy mdslk clmre <»dsodlk 6rtdk a stacken). A 

lesklsebb clmfl byte mdsol6dlk eUtezdr* naJd sorban a 

tobbt. 
PL* 16396 8000 64 CMOME <RETURN> OK 

elvlle* 64 byte-ot mozsrat dt a 16396-os clmrat a 

8000~es clmre. (MaUWdban ROM-ba ne« tad lrnt»> 
2e FILL E»y adott me»6rlocl»tOL (harmadlk a stacken) adott 

szdmd (mdsodlk a stacken) byte-ot (elsfl a stacken) 

lepakot- 
PUs 8000 64 255 FILL < RETURN) OK 

64 dlb. hexa FF byte-ot tesz le a 8000-es ctmtOl 

kezdddtten. 
3. ERASE E»y me»6rlar6sz ktnultdzdsdt v6szl. MesesyezLk a 

FILL utasltdssat. 
PI. 5 800O 64 ERASE < RETURN) OK 

klnuLLdzza a 8000-en ke2d5d5 64 byte hosszd 

memArUiblokkot. 
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4. BLANKS E*y »e»6rloteruLetet szdkdz karakterrel tdlt feU 
Msseswezlk a BL FILL utasttdssal. 
Pl.s 8000 64 BLANKS <RETURN> OK 

64 darab sz6koz karaktert (ASCII hexo 20) tesz le a 
8000~ts clatttt kezdekUten. 



Sz6 



4. TABLAZAT 



MEH6RIAH6MELETEK 



Ltlrdsa 



EUitte 



Utdna 



mm .—.-,*»... 



! A stack teteJ6n levtt clnre *Ltd- 

rotJa a stacker* «asodlk 6rt6ket 
& A stack tet«J*r> taldlhat6 cl» 

tartalndt a stackbe teszl 
? KtlrJa a stack tetejgfi »esradott 

clftfl »e*6riarekesz tartaladt 
+! A stacken ^sodtk 6rt*kkel ftesmtt- 

vtll a stack teteJ6n msradott 

clftCi «e»6r tarekesz tartaladt 
C& Ear* byte-ot felhoz a stack tetejgn 

Msadott M»6rlacl»r5l 
C! Eltdrol era byte-ot (ftdsodlk a 

stacken ) a stack teteJgn 

ftesadott ftemdrtacLnre 



12 



15355 


tires 


15355 


3 


15355 


fires 


15355 


fires 


15355 


1§ 



254 15355 



ures 



CMOME CtzlaAv") 

FILL 

ERASE <"irez"> 

BLANKS ("btenktz") 



Idsd szoves 



Dupla pontossdsfi ■Qveleteks Idsd Fusselek. 
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FELABATOK 

1. BeflnldUunk esy CSEREL sz6t day* ho*y felcser<HJe k<K vdltozd 
tartalmdt* azaz 

ha A ds B vdltozdknak lettek def Inldlva* akkor az A B CSEREL 
utasltdsok eredmdnyekdwen A kordbbl drtdke B~ben Lesyem B 
drtdke A-ban- 

2. BeflnidUunk esy ATMISZ sz6t oly mddcm* hosry esy tombot 
mdsoUon dt e#y vele azonos mdretfl mdslk tombbe. 
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3. INPUT 6S OUTPUT 



Ahhoz* hosry bdrmlLyen c6lra has2ndLhassuk a szdiftl.t6sf6petf 
szuks6»es adatokat bevlnnl a komputerbe (Input) 6s az eredm6nyeket 
Is otvashatian kell meskapnunk (output). A FORTH sokf6le 
lehettis6sret ny6Jt ezekre. 

3.1. ADATOK BEVITELE 

A FORTH-nak nines szuks6se Isazl bevltelt utasltdsra (mint pL 
INPUT a BASIOben)* mlvel szlnte mlnden ut as It 6s a parameter 
stacken vdrJa a parameter© It- Ezeket dltaldban a parancs 
v6snrehaJtdsa elOtt tessziik a stackre. P6Cdak6nt tesyuk fel* hosfy a 
4XT3-3X+2 klfeJez6s 6rt6k6t klvdnjuk meshatdroznt vatamely X-re. 
Ehhez c6lszerft alkotnl esry oLyan sz6tr amely esy szdm kob6t 
hatdrozza mesr* 6s deflnldtnl e»y mdslkat* aroely a klfejez6s tobbl 
r6sz6t szdmoUa. Esry lehets6ses mesolddss 
: KOB DUP DUP * * 5 < RETURN) OK 
: KIF DUP KOB 4 * SWAP (RETURN) 

3 * - 2 + . ? (RETURN) OK 
Most tehdt van esy olyan szavunk (KIF)r amely a stack teteJ6n lev6 
X 6rt6kkel klszdmltja a klfeJez6s 6rt6k6t. Ehhez tesryuk X-et a 
stackre a sz6 v6srehajtdsa eLtitt a k6v©tkez6k6pperiS 
8 KIF (RETURN) 2©26 OK 
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Hasonl6 m6don akdrhdny parameter dtadhatdr es nines sziikses 
bevltell utasltdsra. 

A FORTH rendelkezlk esy olyan utasltdssal» amelylk esy 
karaktert kdpes beolvasnl a blllentyftzetrol. Ez a sza a KEY. 
Hasonldan haszndlhat6, mint a BASIC INKEY*, azzal a kiilonbsesseU 
hosy a KEY mind Is mesvdr esy blllentyft lenyomdst» mis az INKEY* 
nem. <A BASIC INKEY*-nak valoJdban a FORTH ?KEY sz6 fel mes* ez 
0-dt ad vlssza» ho eppen nines lenyomva esy blllentyft sem.) 

Tesyuk felt hosy futds kbzben szuksesiink van valamllyen 
lnformdcl6ra» amlt a blllentyftzetrol vdrunk. 
PI.: 'KER HASZNALATI UTASITAST? <I/N>' 

A KEY ezt kovetOen a parameter stackre teszl a leutott karakter 
ASCII ("eszkl") k6djdt» amely vlzssdlhatb. 

Az eUJbb elmondottak ellenere a FORTH rendelkezlk olyan szoval 
ls» mellyel 1 darab tobb Jesyft szdmot lehet beolvasnl. Ez az INPUT 
nevft sz6. 

3.2. KIIRATAS 

A FORTH tobbfele lehetttseset Is klndl a klmeno lnformdcl6 
mesJelenltesere. A lessyakrabban haszndlt kllratdsl forma esy 
szovessor. Az erre szolsdlb FORTH sz6 a ." amelyet a kllrand6 
szoves majd a zdr6 " kavet. PI.: 
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." Ez eay sor szoves" < RETURN) 

az Ez esry sor szovesr uzenetet Irja a k<§perriytiro>« Minder* tovdbbl 
kllratds usryanebbe a sorba foa kerulnl.. A CR FORTH sz6 szolsdl 
arra> hosry AJ sort nylsson? 6s az ezt kovettt klvltel mdr az AJ sor 
eleJ6n . fosr kezdBdnl. A kozvetlen kurzor pozlclondldsra az AT sz6 
szolsdl. PL. s 
3 2 AT /' HELLO" 

a kd?p<?rnytt harmadlk sordnak mdsodlk oszlopdba Irja ki a fentl 
uzenetet,, (Tehdt sor oszLop sorrendfaen kelt mesadnl a 
paramdtereket! ) Lek^rdezhetJuk azt Is? hosry 6ppen most hot ALL a 
kurzor* erre az AT? sz6 szolsrdl. Az elfcizti paramdfter-sorrenddel 
azonos m6don adaa vlssza a parameter eket? a stack teteJi-m tehdt a 
vlzsztntes PozlclA lesz? vasryls? hosry meLylk oszlopban vasrvunk. 

Amennylben a k£perny5 utolsd pozlcl6Jdba trunk* a FORTH 
automat I kusan v6»rehaJt esy "scrolt"-t? azaz a k^pernyfl mlnden 
sora esrsfyet feUebb keru-U a' leaf e 1st) sor pedis elv^sz. 

Eswetlen karaktert mds mddon az EMIT FORTH sz6 sefflts6s<*vel 
vlhetunk a kgpernyttre,. Ez az aktudlls kurzorpozlcl6ba kllrja azt a 
karaktert? amelynek ASCII k6dja a stack teteJ6n taldlhatd. A 
mesrfelelO k6dot Lesresyszerftbben a KEY paranccsal tehetjuk oda* Az 
EMIT aLkalmas arra Is? hosy olyan karaktereket Irassunk ki? 
amelyeket nem lehet a blLUmtyAzetrtil eL&fnl. PL.: 
142 EMIT <RETURN> G OK a 142 ASCII k6dA karaktert LrJa kif amely 
a 6 karakternek mesrfeleltt k6d. 
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3.3. SZAMQK KHRATASA 

E»y szdmot lesresyszer&bben a J 6 1 Ismert . FORTH sz6 
sesltsdsdvel Irathatunk kl a kdpernyOre. Ez a stack teteJdnek 
tartalmdt a Lehet8 lesrklsebb szdlessdstt meztibe IrJa kl? azaz 
vezetB nulldk vaay szdkozok ndlkQL. A kllrt szdmot esy sz6koz 
kovetl. A kovetkeztt FORTH szavafc sesltsdsdvel szdmok kllratdsl 
formdJdt tetszdlesresen mesrvdltoztathatjuks 

■ R a szdmot esry mesadott szdlessdsrtt mezBben Jobbra Isazltva 
IrJa kl* sz6kozokkel klesdszltve a mezB fennmarad6 baloldall 
rdszdt. PL. a 
22 4 .R (RETURN) 

a 22-Bt e#y 4 karakter szdlessdsft mezB Jobb szdldre helyezve 
IrJa k if azaz kdt vezetB sz6kozzel klesdszltve. 
<* kdpszertt (karakterenkdntl) kllratds szerkesztdsdnek kezdetdt 
jelzl* 6s esy dupla pontossdsrd szdmot vdr a stacken. (1) A 
szdm kdpdnek messzerkesztdsdre az aldbbl FORTH szavakat 
alkalmazhatjuks 
4 hdtulr6l elBre haladva beteszl a szdm kovetkezB Jesydt esy 
puffer be. (Termdszetesen ez Is az aktudLls szdmrendszerben 
drtendB.) Pl.s ha a szdm drtdke 123* akkor az elsfl * 3-at? a 
kovetkezB i-ak pedis sorban a 2? 1*9 *©*... karaktereket 
teszlk a pufferbe. 
*S a szdm maraddk Jesyelt a pufferbe teszt. Ha mdr nines tobb 



(l)n Mlvel dltaldban esyszeres pontossdsrd szdmokkal szoktunk 
dolsfozrtl? J6 haszndt vesszuk llyenkor az S~>B FORTH szdnak* amely 
a stack teteJdn LdvB 16 bites szdmot 32 bltessd konvertdUa. 
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Jesrye* esry 0-t akfcor Is letesz. 
HOLD a stack teteJ6n vdr esry ASCII k6dot* 6s az ennek roesfeleld 

karaktert teszl a puffer kovetkezB hely<*re. PL: 
46 HOLD 

e»y pontot tesz a puffer be. 
*> befeJezl a k6pszer(l kllratds szerkeszt6s6t« A stackben a 

puffer clm&t <§s hqsszdt adJa vlssza? ILy m6don Iehet8v6 

teszl* hosry a kllratdst kozvetlemil vdterehajtassuk esry TYPE 

paranccsal. 
MesrJesryzgs" a * 6s a *S a dupla pantos szdraot elttjeltelen 32 bites 
6rt6kk6nt kezell. I 

P6tdak*6nt deflnldUunk esry FIL nevtV szdt* amely esy esyszeres 

pontassdsrtl* elOJelteten szdmot vdr a stacken* azt flll^rekben 

klfeJezett 6rt6knek teklntl* 6s kllrja 

x*y FT 

alakban* ahoL x az esr6sz forlntokat* y pedis a marad6k flll6reket 

Jelentl. 

s FIL © < * * * 44 HOLD 4S * > < RETURN > 

TYPE ." FT" ? <RETURN> OK 
N6hdny alkatmazdsl Pdtdas 

1234 FIL < RETURN) 12*34 FT OK 

10000 FIL < RETURN) 100*00 FT OK 

FIL < RETURN) 0*0© FT OK 

-1 FIL < RETURN) 655*35 FT OK 
Mint mdr emlltettuk* a kdpszerften szerkesztett kllratds 
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alkalmazdsdval tetszoleses alakban Jelenlthetunk mes szdnokat. 
Ehhez azonban mesfeleltt sryakorldsra szuksesr van. 

3.4. E6YSB KIIRATASI UTASHASOK 

A kavetkeztt FORTH szavak szlnten a kdpernytt szerkesztdsdt 

sesrltik: 

SPACE ("szpdsz") esy szbkoz karaktert lr az aktudlls pozlcldba. 

Mesesyezlk a 32 EMIT utasltdssal. 
SPACES ("szpdszlz") a stack tetejdn levtt drtdk dltal *esrhatdro- 

zott szdma szdkoz karaktert lr kl. 

PL.: 5 SPACES < RETURN) 5 szdkozt lr a kdrernyore. 
CLS letorll a kdpernyot ds a kurzort a bal felstt sarokba 

dlUWa. A kovetkeztt kllratds tehdt fentrttt fos lndul.nl. 

3.5. GRAFIKAI LEHET0S6BEK 



A FORTH mesensedlf hosy a PRIMO adta sraf Ikal lehetttsdseket 
teliesen klhaszndlJuk. BedUlthatJuk, hosy a raJzolds mllyen 
"szlnnel" tortdnJdk: feherreU vasry feketdvel. Az ON FORTH sz6 
fehdr szlnt, mis az OFF feketdt dUlt be. Hatdsuk addlsr ervenyes* 
amis az ellenkezttt be nem dllltjuk. 

A PLOT szdval tudunk esy (fekete vasy feher) i»5ttyot kllrnl a 
kdpernyttres 
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PL 16 3 PLOT < RETURN) OK a srraflkus k6perny8 alulril vett 
nested Ik sordnak tlzenhetedlk pozlcl6Jdba Lr. <A sorrend tehdt X Y 
PLOT.) Az X»0 Y=0 pant a k6pernyti bal als6 sarkdban van. Esryenest 
a DRAU <"dr6") szdval h&zhatunk: az esryenes kllnduldpcmtja az a 
pont lesz? am It utoUdra bedlUtottunk <pL a PLOT* vasy esy elBzS 
DRAU sesflts6ff6vel)* vdsnrontjdt. pedis X Y sorrendben kell a DRAU 
etStt mesadnl. PL. 30 20 DRAU <RETURN> OK esetunkben a <16»3) 
pontt6l kezdve a (30? 20) pontiff hdzott esruene&t. Usruanezt az 
e^yenest meshdzhattuk volno a DRAUREL sz6val Is? ekkor a v6sr*ont 
koordlndtdl helyett a relatlv koordlndtdkat kell mesradnls ennylvel 
kell mesmovelnl az aktudlls koordirtdta 6rt6keket? hosy a v6srpontba 
jussunk. Az elOztt 30 20 DRAU helyett tehdt Irhattuk volna: 
14 17 DRAUREL < RETURN) OK 

hlszen 16+14=30? 6s 3+17=20- Az aktudlls porit koordlndtdlt a FORTH 
az X 6s Y nevtt vdltoz6kban tdroUd. Ezeket kdzvetlenul Is 
dtlrhatjuk? de esryszerttbb? ha az Aj koordlndtdkat az XY3AVE 
("exvdJsz6v") sz6val dllLtJuk be* ez nem raJzol semmlt a 
k6pernyBre? de a kovetkezti DRAU vasy DRAUREL ettfll a ponttdl 
kezdve Indul* 

Effy pont dllapotdt az ON? sz6val tudjuk lek6rdez.nl- Pdlddul- 
52 ON? < RETURN) OK 
A stackbe keriil* ha a pont sot6t> 6s -1 kerul? ha vlldsros. 
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4. FELT6TELES ELAGftZASOK £S CIKLUSSZERVEZO UTASITASOK 



Mint Itittukr a FORTH 6rtelmezttJe esrymds utdn vsszl elti a 
be><*6pelt szavakatf rnaJd lefordltJa 6s eltdroUa az AJ 
def lnlcl6kat? III. v&*rehajtja az esy6b utasltdsokat* ft 
v^srehaJtdsl sorrend ekkor mesfesfyezik a mesaddsl sorrenddeL 
Nyllvdnval6> hosry e<*y haszndlhat6 prosramnyelvnek lehettts<§sret kell 
blztosltanla arra* hosy az utasltdsok losakal - vdsrrehajtdsl - 
sorrendJe elt6rJen a f Iz Ileal - tdroldsl* besf6pel6sl - sarrendtSU 
ft ha^yomdnyos nyetvek <A8SEMBLER~ek> FORTRAN* BASIC? stb.) erre a 
aHra felt<Hler» 6s felt£teles usrd utasltdsokat blztosltottak* 
amelyekbBl a felhaszndld ItHrehozhatta a szdmdra szuksdses 
(program v<§<?rehaJtdsl sorrendet) vez6rlS struktdrdkat, A FORTH 
azanban a prosramlrd szdmdra kazvetlemil azokat a vez6rl£sl 
formdkat blztosltja* amelyekre szuks£se lehet. (1) Emlatt sohasem 
haszndUmk explicit usnrdsokat Cesy6bk6nt Is roppant korulm^nyes 
lenne haszndlatuk) y hanem a mesrfelelt) vez£rl6 utasltdsokkal 
dolsozunk. 

Pontes! A vez6rlB struktdrdk kozvetlenul (esryszerften 
besr^pelve) mm hajthat6k v6<*re: ezek klzdrblasr esry deflrtlcl* 



(i)n ft FORTH I6nye#6btil kovetkezlk? hosfy a felhaszndld tetsztilesres 
dJ vez6rl8 struktdrdkat Is szabadon def Inldlhat. 
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torzsdben. Jelenhetnek mesu 

4.i. FELTETELES ELAOAZASOK 

A k6tlrdnyd felt6teles eldsazdsokat hdrom FORTH ala?sz6val 
vezdrelhetJtik: IFr ELSE 6s ENDIF <ez utdbblt THEN-nek Is 
IrhatJuk). Az IF esy losdkal 6rtdket vdr a faran»6ter stack 
teteJdri* 6s att6l ' fusrsrO'en dsraztatJa el a v69nrehajtdst. A 
felt6tetes eldsazds formdJas 



ahol 
: DEF 
felt. 

IF 
tev.i 

ELSE 
tev.2 

ENDIF 
tovdbb 



: DEF felt. IF tev.i ELSE tev.2 ENDIF tovdbb f 

a def lnlcl6 kezdete- 

ez a r6sz e#y losakal 6rt6ket (nulla/nem nulla) hasry a 

stacken. 

elveszl a stack tetejdri lev6 szdmot 6s mesvlzssdUa. 

ezt a tevdkenysdset haJtia v6srref ha a feltdtel Lsaz* 

azaz a szdm tietn © volt. 

ez a r6sz kerttl vdafrehajtdsray hd a felt6tel hawlsf azaz 
a szdm volt. 

mlndk6t dsr Itt folytatddlk. 



Amennylben az IF nem drtdket taldl a stacken? minder* 
v6srehaJtdsra keritl az ELSE~lsr <"elz">> majd a tovdbbl szavak 
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klmaradnak> 6s az ENDIF utdn kerulnek csak djra vdarehajtdsra. 
MdsrdszrBU ha a stacker, az IF nulldt taldlt* mlnden klmarad az 
ELSE~lsr» 6s orman folytatddlk a prosrraiwdsrrehajtds. Az 'EtSE 
tev.2' rdszt el Is lehet has«nl» ha nines rd szuksdsr. 

A loslkal drtdket dltaldban osszehasanlltd szavak < < > = ) 
sesltsdsdvel tesszuk a stackre. Amennylben a klvdnt losflkal 
drtdknek dr-*en az ellentettje dlL rendelkezdsunkre* a 0= alapszdt 
haszndlhatJuk. Ennek elvl def InlcldJas 

: 0= = 5 

A FORTH lehetOsdjmt blztoslt 16 bites drtdkek kozott loslkal 
mCtveletek elvdszdsdre. A mesfelelfl alapszavak: AND* OR ds XOR. 
Ezeket a mfiveleteket a FORTH a kdt operandus kozott bltenkdnt 
vdszl el a 6. tdbldzatban taldlhatd Israzsdstdbldzatok szerlnt. 

PI.: 

1 1 AND 1-et ad -11 XOR -2-t ad 255 -256 OR -1-et ad 

A kovetkezo" pdlddnk esy olyan szdc amely a stack teteJdn 
taldlt drtdkrttl eldontl> hosry tlzes szdmrendszerbell szdmJesynek 
mesfelelO ASCII k6d-e (0-9). Ha nem» hlbaiizenetet ad» ha Isrenr a 
nek I mesrfeleUJ szdmdrtdket adJa vlsszas 
: JE6Y DUP DUP 47 > SUAP 58 < AND 

IF 48 - ELSE . ." Nem szdmJesy!" QUIT ENDIF r 
(A QUIT szdt haszndtJuk arra» hosry esy adott szd> valamlnt az Bt 
h I v6 szavak futdsdt fdlbeszakltsuk. BASIC mesfelelttJe a STOP.) 
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FELABATQK 

1. IrJuk mes o <~ >~ 6s < > szavakat! (Ktsebb vasy esyenltW 
nasyabb vasry esryenlti til. nem esyenlti). 

2. AdJunk mes a "?BUP"-riak mesfeleltt deflnlcldt -BUP n6ven! (Ldsd 
2. tdbldzat.) 

3. IrJurik olyan szavakat MAXIMUM ILL- HINIMUM n^venr ametyek a 
stack tetej£n L£v8 k6t (16 bites) szdm maxlmumdt til. minimum At 
adjdk. 

4- ftdjunk mesraz ABS~mik mesrfelelOfunkctdJA sz6t ABSZOLUT ndven! 

4.2. FELT6TELLEL MEZ6RELT CIKLUSOK 

Arolkor az utasltdsok esy csoportJdt tobbszor IsiwHelve 
klvdnJuk vdterehajtanl? elk-lust szervezunk. A clklus elhasydsa vasy 
valamltyen feltdteltSt fuss (fett^tellel vez<*relt clklus) * vasy a 
v&anrehajtott Ism6tl6sek szdmdtdl (clklusszdmldldval vez6relt 
clklus). Ebben a r6szben az eltibbl csoporttal fosrlalkozunk. 

A clklusvezdrlfl utasltdsok esrylk faJtdJa a kll<*F6sl felt<Helt 
a clklus v6sr6n vlzssdUa. AlakJas 

: BEF BEGIN tev. felt. UNTIL tovdbb ; 
ahot 

: BEF a deflnlcld kezdete. 
BEGIN nesrJelSll a clklus kezdet£t. 

tev. az a tevdkenysdsr* amelyet clkllkusart klvdnunk Isim&tel- 
tetnl. 
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felt. a klldpdsl felteteU Jelenttt loslkal drtdk elttdllltdsa. 
UNTIL mesvlzssdUa a stack tetejdn Levtt erteket* es ha az ©» 

vlsszaleptet a clklus kezdetdre (hamls feltetel*). 
tovdbb Isaz feltetel <nem drtdk o stacker.) eseten a 

vesrehaJtds Itt folytatddlk. 
Az UNTIL helyett END-et Is Lrhatunk. 

A kbvetkeztt pdlddban esy olyan szdt def lnldlunk> amely esry 
adott 16 bites szot keres a meiti6r Idbarn- es az elsb" elttforduldsdnak 
clindt adja vlssza. Hlvdskor a stack teteJen az lndlt6 elm? alatta 
a keresendtt drtdk van! 
: KERES 1- BEGIN 1+ OVER OVER i = 

UNTIL SWAP DROP 5 
a clklus eleJen mesmoveUuk az aktudlls clmet 2-vel> majd 
dupllkdUak a stack ket lesfelsO drtdkdt. Az adatfelhozatal utdr. a 
keresett ds a taldlt drtdk osszehasonlltdsa kovetkezlk: ha a kdt 
drtdk r.em esyenlOf vlsszatdriink a clklus eleJdre* esydbkdnt 
eldobJuk a most mdr folosleses keresett drtdket ds vlsszatdriink az 
aktudlls clmmel. 

A clklus elhasydsdt Irdnyltd feltdtel a clklus elejdn Is 
dllhat. Ekkor a clklusutasltds a kovetkezfl formdt olti: 
: DEF BEGIN felt. UHILE tev. REPEAT tovdbb ? 

ahol 

: DEF a deflnlcld kezdete. 

BEGIN mesJeloll a clklus kezdetdt. 



BME - KSZK C0SY 



PRIMO FORTH - 37 - ELAGAZASOK £S CIKLUSOK 

felt. a kll6*6sl felttHelt Jelenttt loslkat 6rt6k elSdllltdsa. 

UHILE ("vdjl") mesvlzssdUa a stack tetej^n ld?vtt <*rt£ket. Ha 

az Or akkor a vdfsrehaJtds a "tovdbb" r£szen folytat6dlk? 

esry£bk6nt 
tev. vdterehaJtJa azt a tev6kenys6set* amelyet clkllkusan 

k L vdmmk lsm<He Itetn I . 
REPEAT ("rlplt") vlsszausrlk a kll(*p6sl felt6tel elfidLUtdsdhoz 

(BEGIN) 
tovdbb a clklusb6l ktt^pve Ide keritlurik. 

FlsfyeUuk mesff hosy BEGIN - UNTIL clklusrtdl a "felt." a clklusbdl 
vaL6 kll<**<*s feltSteUt* BEGIN - UHILE - REPEAT eset£n a clklusban 
mar adds feltd?tel6t Jelentl! 

Pdldak6nt LrJunk esry sz6t* amely a stack teteJ6n dll6 
(pozltlv) szdmr6l eldontlr hosry hdny declmdlls jesrybttl dlls 
: BECJEGY 1 SWAP PEGIN 10 / ?BUP 

UHILE SUAP 1+ SUAP REPEAT 5 
A szdmot mlndaddls osztjuk tlzzel? amis eredm<*nyiil 0-t nem ka?unk. 
A szdmldl6 1-rttl Indul. PI- s a 38 kezdetl 6rt6kn<*l az elstt 
I6pd?sben a 38~b6l 3 lesz. Mlvel ez nem ©* v£srehajtjuk a 
clklusmasrot (a szdmldl6t mesmoveUuk) * maJd ftjra osztunk. Ekkor 
mdr 0-t kapunkr l»y a clklusbAl kll^pve a szdmldld 6rt6k6vel 
v Isszatdrr hetunk . 

Ebben a r£szben emlltJuk mesr a clklusutasltdsok esry kiilonleses 
faJtdJdtf a v6srtelen elk lust Is. AlakJa: 
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: DEF BEGIN tev. AGAIN ? 
("636Jn")? amely a "tev," tev<*kenys6sfet lsm6tll v<*3 n6lki.il. Ezt a 
fajta elk Lust elhasrynl csak kulonleses m6dokon lehet <hlba> QUIT? 
kulsti beavatkozds* stb.>. 



FELADAT 

IrJuk mes a BEGIN - UNTIL utasltdshoz mesradott p6lddt BEGIN - 

UHILE - REPEAT felhaszndlAsdval! | 



4,3. CIKLUSSZAMLALOUAL VEZ6RELT CIKLUSOK 

Ez a fajta clklus nasyon hasonllt a BASIC FOR-clfclusdra: adva 

van effy clklusszdmldlir amely esy meshatdrozott kezdB6rt6krttl 

InduU 6s mlndaddls vdltozlk az 6rt6ke esry deflnldlt l6p6skozzeU 

amis az adott v6<?6rt6ket el mem 6rl. Az esylk formdja a kovetkeztts 

s DEF v6s kezd. DO tev. LOOP 5 

ahol 

: DEF def InldUuk a DEF nevtt sz6t. 

v6<? a v6s6rt6ket teszl a stackbe. 

kezd. a kezd»6rt6ket teszl a stackbe. 

DO t"du") a clklus kezdet6t jeldll. 

tev. a clkllkusan v6*rehaJtandd tev6kenys6sr. 

LOOP C'ltip") mesmovell a clklusvdltoz6 6rt6k6t esfsyel* 6s 
mean&zlr ho»y el6rte~e a v6a6rt6ket. Ha Lsren* befeJezl a 
elk lust? esy6bk6nt folytatja az Aj clklus6rt6kkel. 
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J6L flsryeUuk mesr* hosy FORTH-ban a clklus a v6s6rt6kkel mdr nem 

fut Le! 

A clkluson belQL a clklusvdltozd £rt6ke lek<*rdezheta: az I sz6 a 

clklusvdltozd aktudlls £rt<*k6t teszl a stackre. P6lddul esyttil 

10-ls Lrja kl a szdmokat a kovetkezti szd? mlndesrylket dj sor 

eleJ6re: 

: 1-10 11 1 DO CR I . LOOP 5 

M6d van arra Is? hosy a l£p£skoz ne 1 lesryen. Ekkor a 

kovetkezti farmdt haszndlhatjuk: 

: DEF v£s kezd. DO tev. 16p. +L00P ? 

aha I 

s DEF a deflnlcl6 kezdete. 

v£s a v£s<!?rt£ket teszl a stackbe. 

kezd. a kezdttert£ket teszl a stackbe. 

DO a clklus kezdet£t jeloll. 

tev. a clkllkusan v6srrehaJtand6 tev6kenys6s. 

16p. a stackre teszl a klvdnt Idfpdfskost. 

+L00P mesmovell a clklusvdltoz* 6rt£k<H a stacken I6vti 

szdmmaU 6s mesm<§zl> hosy eldrte-e a v<hM*rt6ket. Ha 
Iserif befejezl a elk lusty esry6bk6nt folytatja az dj 
clklus£rt£kkel. 

ft UJp^skoz lehet nesratlv szdm Is* ekkor a clklusvdltozd 6rt6ke 

folyamatosan csokkeny amis klsebb nem lesz a vd>sr6rt6kn£l. 

Amermylben a elk lust el klvdnjuk hasynlr mleltitt a -clklusvdltozd a 

vds6rt£ket eldrte valna* a LEAVE <"llv") sz6t haszndlhatjuk. 
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4.4. VEZ6RL6SI STRUKTORAK EGYMASBAAGYAZASA 

A vezdrlfl struktdrdk "tev." tevdkenysear reszen betul uJabb 
vezerlesl formdk Is elhelyezhettlk. Az esryetlen mesrkotes, hoary az 
esyffidsbadayazdsok megfelelttek Lesyenek, azaz az esyes struktdrdk 
nem keresztezhetlk esfymdst! 
PdldduU 



he Lyess 



helyteLeri! 



IF 1G DO ... LOOP ... ENDIF ... 



... IF 10 © DO ... ENDIF ... LOOP ... 

A fentl szabdly a 16 1 esryetlen klvetel van: a LEAVE sz6 
bedsyazhatd esy felteteles utasltdsbaf azaz 

... 10 DO ... IF LEAVE ELSE . . . ENDIF LOOP . . . 

he lyes. 

Termeszetesen DO - LOOP clklusokat Is esrymdsba dsryazhatunk. Az 
elOztiles meslsmert I szo ebben az esetben mind Is az aktudllsan 
lesbelsB clklus clklusvdltozdJdnak erteket adJa vlssza. A 
kovetkezti szlnt clklusvdltozdJdt Is elerhetJuk azonban a J sz6val» 
stJt a K a nids essyel masasabb szlnt clklusvdltoz6Jdt teszl a 
stackbe. 

Peldakent teklntsuk a kovetkezo *rosrra»ot, anely esry 
szorz6tdbldt Ir a kepernyOre: 
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! SZORZOTABLA CR CR 4 SPACES 

10 1 DO I 3 „R LOOP CR CR 

10 1 DO I 3 .R SPACE 

1© 1 DO I J * 3 .R LOOP 

CR LOOP CR ; 
J6L flsaeUiik mesr» hosa usacmazt a clklusvdltozdt eaaszer I-velr 
esaszer J-vel <*rtilk eL a bedsaazddds m£lysd>s<Htil fiisrstten! 



FELADATOK 

1. DeflnldUunk esa HATVANY nevtt sz6t dsas- hosa "m n HATVANY" 
m-nek az n-edlk hatvdnadt szdmttsa kl. Ha n nesatlv* adjunk 
hlhauzenetet! 

2. IrJuk roes a FAKTOR sz6t» omeLa a stacken l£vti szdm 
faktorldUsdt szdmltja kl! 

6. TABLAZAT 
AND OR XOR 



110 110 110 

__+ __ + __ + 

1110 1111 110 1 

I I I 

0100 0I10 OIIO 
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5. SZOVEGSZERKESZT£S £S -TAROLAS 



Heslsmertuk az elbzo reszekben, howan lehet e* y dJ sz6 
deflnlcldJdt kozvetlendl besdpelnl. Ennek a n,6dszernek a kovetkezO 

hdtrdnyal vannak* 

- hlbds szavak Javltdsa l.en nehezkes es a teUes szbves AJMU 

- a be.dPelt szoves elvesz, azaz a kdPernyo letorlese utdn a szd 
def Lnlcl6Ja <ebben a formdban) fen. nyerhetO tobbe vlssza? 

-nines lehetosesunk a belrt Prosranokat pI. masmdkazettdra 
elmentenl, asryszlntdn 

- mdsok Altai meslrt Prosramokat nem tudunk dtvennl. 

Ezdrt fontos lehetosds az, ho*, a be 3 epelnl klvdnt ProsranJalnkat 
a* y is tdrolhassuk a tdrban, mint aho* y paPlrra lelrndnk oket. 
Amlkor a Pro.ra.unk kesziil, erre a "PaPlrra" IrJuk az 
uta.ltd.okat, def lr,lcl6kaf, szukses eseten "radlrozunk", beszd- 
runk, kleseszltunk. A.lkor An, erezzuk, ho,, keszen va.yunk, va*. 
IclakarJuk Prdbdlnl a besePelteket, dtadJuk a <>aPlrlaPot" a 
FORTH-nak, ho,, "olvassa ,1", azaz teklntse d* y a raJta levo 
Inforndcldt, .Intha ePPen most sePelnenk be a klavlatdrdn. Ekozben 
azonban a "PaPlrlaPunkon" leva Inforndcld ne* vdltozlk *e*, tehdt 
hlba eseten dJra elovehetJuk, Javlthatunk raJta, dJra beolvastat- 
hatJuk. Munkdnk vd.ezt.vel a "PaPlron" lev* Inforadcldt kazettdn 
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tdrolhatjuk. 

ft FORTH-ban a "paplrlapot" screennek ("szkrln") nevezziik* 6s 
m6rete katott: 1 Kbyte . Ez losakallasr 32 db. 32 karakteres sort 
Jelent. Az elstt sorra a 0-ds> az utolsdra a 31-es sorszdmmal 
hlvatkozhatunk. A szdmtt6sr6p memdrldjdban csak n£hdny screennek 
van hely* azokat a "lapokat"? amelyek nem f£rtek be? masmdkazettdn 
lehet tdrolnl. Mlnden screennek sorszdma van? ez 1-tttl 255-lsr 
terJedhet. Ha klvdncslak vasryunk array hosy *<*pQnk mem6rldJdban 
hdny screen lehet esryszerre* stJpeUuk be: *BUF . < RETURN) 



* 



5-1. SZSVEGSZERKESZT£S (EDITALAS) 

Szovearszerkeszt<*snek azt a tev£kenys<*srct nevezziik? ami kozben 
"paplrlapunkra" trunk r vasry raJta vdltoztatdst <torl6st> 
beszCirdst) haJtunk v&srre. Hlnden szovesszerkeszt<*st az EDITOR 
parancs kladdsdval kezdunk* 6s a FORTH szdval fejezimk be. 
Sz6vesszerkeszt6sl tizemmddban mlnden parancssorra vdrdst az E> 
karakterekkel jelez a *6p. 

Az edltdldshoz (1) k<§tf6lek<*ppen kezdhetunk hozzds vaay "tlszta 
lappal" klvdnunk Indulnl* vasry esy (akdr ma»ri6szala»on) mesl^vB 
screenen akarunk vdttoztatnl. Az elttbbl esetben az EDITOR parancs 
utdn az 

5 CLEAR 



(l)n Ez az ansfol edit (szerkeszt) sz6b6l "masryarosltott" klfeJez<*s 
el<§ssn§ etterjedt szdmltdstechnlkal korokben: szove*szerkeszt<*st 
J e lent. 
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az utbbblban az 

5 LIST 
utasltdst adJuk kl. Az 5 helyett a stock teteJen ezek a szavak 
termeszetesen bdrmllyen mas screen-szdmot is taldlhatnak. 
Amennylben a LIST az adott sorszdmd screent nem taldUa mes a 
mem6r Idban » a 
SCR 5 olvasdsa. OK? 

iizenet lr6dlk kl, 6s a FORTH esy karakter leiitesere vdr. Ez utdn 
(ha a lenyomott blllentytt nem a BRK) mesrr6bdUa masmor&l 
betoltenl a kerdeses screent. Ha ez nem slkeriiU hlbaiizenetet 
karunk. Slkeres betoltes eseten <vasy ha a screen it.dr bent voLt a 
mem6r lobar,) a screen a kepernyttre llstdz6dlk. <1) A CLEAR 
("kllr") parancs sohasem keres kazettdn* hanem dJ » (ires screent 
nylt a mem6r Idban, vasy ho usyanllyen sorszdmd screen ott letezlkf 
azt IrJa feliil sz6kozokkel. 

Mestortenhet, ho»y a szdmltdsrerben nines heLy a kUelolt 
screen tdroLdsdra. Ez vasry a CLEAR-nel fordulhat elo, vasry akkor, 
amlkor a LIST-nek szalasrbl kell behoznla a screent. Ekkor ket 
eset van: vasry von a memorldbar. olyan screen* amelyet nem 
vdltoztattunk mes a lesutdbbl beolvasdsa vasry mentese 6ta (azaz 
kazettdn Is mesrtaldlhatd a pontos mdsa), ekkor ennek helyere kerul 
az uJ screen; vasry pedis esy bentlevO screen szalasrra roszltesere 

(l)n A FORTH minder, llstdzdskor szdmon tart J a, hosry eddls hdny 
sort Lrt a kerernyore. Ha a kUrt Usta "el akar szaladnl", azaz 
Ustdzott sorok vesznenek elr a FORTH mesrdll es vdr esry karakter 
leiitesere. Csak ezutdn hasryJa a kepernyOrttl elvesznt, az 
Informdclbt. 
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kertil sor. 

ft kovetkeztSkben a szovesrszerkeszt£shez haszndlt lesfontosabb 
utasLtdsokat Ismertetjuk? tovdbbl hasznos szerkesztti szavakat 
taldlhatunk a FussreL^kberu Mindazok a szavakr amelyek esy sornak a 
szdmdt ls6nyllk» a stack tetejdn vdrJdk azt. 
L az aktudltsan szerkesztett screent klllstdzza a 

kdpemySre. 
P a screen e#y sordt dtlrja az utasltdst kovettt szove9rseU 

esr£szen a sor vdsr<H«f u Pl.s 

G P Ez lesz a screen elsB sordban < RETURN) 

17 P : KOB DUP DUP * * 5 5 KOB . < RETURN) 
S a mesradott szdmil sort6L kezdve minden sort esreyel leijebb 

mozsrat* ez a sor tires lesz* mlsr az utols* <eddlsrl 31-es) 

elv6sz. PL,: 

5 S < RETURN) 

hatdsdra a kordbbl 5-os sor a 6-os Lesz* a 6-os a 7-es? 

si.tf az ftj 5™os redlsr szdkozokkel Lesz tele- Ily mddon 

lehet iij sorokat beszCirnl a r6srlek koz6. 
D a »e»adott szdmCi sor kltorl6se. (1) Minden ezt kovettt 

sor esrsyel feUebb 16p* a lesrutolsd pedis szdkozokkel 

Lesz tele. Az S-sel ellent£tes mQvelet. Pl.s 

12 D < RETURN) 

hatdsdra az Cui 12-es sor a rdsl 13™as lesz> az Aj 13-as a 



<l)n ft fcltorolt sor nem v6sz el? hanem a PAD C'ped") nevtt 
szovesr puffer re keriil* ahonnan vlsszanyerhetS <R? I? Id- FusrsreL6k). 
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r6sl 14~es* sit- 
A az S~hez hasonllt* de az utasltdst kovetti szoveset szdrJa 
be az eddlsrl sorok koz6. PL- a 
9 A Ez a 9~esbe* 9~es 10-esbej sit. < RETURN) 

5-2. SCREENEK ELMENTSSE 

Esy screen menszerkeszt^se utdn k6rhetjuk annak hdtt£rtdroldra 
tort6nti ment<§set. Ezt a folyamatot a FORTH Is kezdem6nyezl> ha 
nines he La a merodr Ldban e*y dJ screennek. A masm&kazettdra tort£ntt 
kllrdst uffyandffy kelL vterehaJtanL* mint pL. a BASIC prosrramok 
ment6s6t. A mesrfelelti FORTH utasltds a SAVEr ameLy a stacken 
taldlt sorszdmd screent vlszl szalasra. PL.: 
3 SAYE (RETURN) 
eltiszor kllrjas 
SCR 3 nent£se. OK? 

Ha a masitfn mesmyomtuk a RECORD £s a PLAY sombokat* ussunk Le esy 
RETURN-t? 6s a screen klvltele ellndul. A BRK sombbal a folyamatot 
le lehet dllltanl. 

A klvltel slkeres voLtdt a TEST sz6val ellenttr IzhetJuk: 
u»yanii»y haszndUuk> mint a LIST-et* de az adott sorszdmd screen 
csak 6sszevet6sre keriil a mem6rldban L6vt)veL. Elt6r£s eset6n 
hlbaiizenetet kapunk. 

Ha klvdncslak vasryunk arra? hoary esry adott plllanatban mlLyen 
screenek taldlhat6k a mem6rldbanf haszndliuk a SCREENS? sz6ty 
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amely a kdper'nytire Irja a mesfeleUl sorszdmokat. 
5.3. SCREENEK BEOLVASTATASA 

Amlkor az elkdszult "paPlrlapot" dt klvdnJuk adnl a FORTH-nak, 
Uletve kazettdn tdrolt proarramot akarunk betoltenl, a LOAD 
<"l6d") szdt haszndUuk, a stackre tdve a beolvasandd screen 
sorszdmdt. Amennylben a kdrddses screen nines me* a memdrldban, a 
LIST-tel esryezti modon kerttl be oda a szalaarbl. Mlvel a screener. 
tdrolt Informdclot LOAD-ndl a FORTH Pontosan dsy kezell, mlntha az 
dppen akkor lenne besrdpelve, nemesak def Inlcldkat, hanem bdrmllyen 
esydb utasltdst Is Lrhatunk a screenekbe. Van ezenkiviil kdt szd, 
ameLuet csak a "paplrlapunkon" haszndtunk: 



— > 



ez mesfelel az n 1+ LOAD utasltdsnak, ahoL r. az aktudUs 
screen sorszdma. Akkor haszndUuk, ha prosramunk nem fdr 
eL esy screenen. ILyenkor a kozbiilso "Lapokon" 
elhelyezzuk ezt a "foLytatds a kovetkezti Lapon" JeLet ? ds 
ebbOl a FORTH betoltdskor tudnl fos-Ja, nosy az essyel 
nasyobb sorszdma screent Is be kell toltenle. 
ezzeL a szdval mesjesyzdst helyezhetunk el a screenbem 
azaz oLyan szoveset* amelyet a FORTH LOAD-ndL "lenyel", 
flsryelmen klviil has-y. A mesrjesryzdsben bdrmllyen karakter 
etflfordulhat» klvdve a ) csukd zdrdJelet, amely a 
kommentdr befejezdsdt Jetentl. Cdlszertt mlnden screen 
eLsO sordt mesJesyzdsnek fenntartanU amelybe belrjuk* 
hosfy ml taldlhatd ezen a screenen. 
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6. EGY6B HASZNQS UTASITASOK 



A FORTH alapsz6tdra <azok a szavakr amelyeket a FORTH 
bekapcsoldskor "tud") Isen zazdtxsr ezdrt Itt most csak ndhdny 
hasznos sz6 kertil Ismertetdsre. A FQsrseldk tartalmazza a 
felhaszndldl szavak teUes UstdJdt ds rovld tsmertetdsuket. 
trdemes ezek kozul mlndl tobbet klprdbdlnl* hosy az dJ szavak 
deflnldldsdndl mind tobb feladatot tudjunk mesroldanl a lehetti 
lesc6 Ir avezetBbben « 

BYE sesltsds£vel tudunk vlsszatdrnl BASIC-be. 
VLIST ez az utasltds klllstdzza az aktudlls szdtdrat* tehdt a 
rendelkezdsunkre dlld szavakat. Minder* deflnlcld utdn 
ellentirlzhetJuk veler hosjy az dJ szd Is raesjeleat a 
sz6tdrbaru 
TASK ez esy olyan sz6i ami nem cslndl semmlt* de van. Ezzel 
kezdunk el dltaldban mlnden dJ def lrilcld~sorozatot> ds 
amlkor tbrolnl akarunkr tudjuk* hosy a TASK-t6L kell 
kezdenl. Amennylben a prosramunkat screenbe Irtuk* ds 
tabbszor Is Javltunk rajta> esry dJ LOAD-ndl 
f Isryelmeztetti uzenetek sordt kapjuk* hlszen az elttbbl 
prdbdlkozdsndl mdr Idtrehoztuk ezeket a szavakat* ds 
most mlnden szd (lesaldbb) kdt pdlddnyban foslaUa a 
memftrldt. CdlszerQ ezdrt mlnden dJ prosramot a 
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kovetkeztik^ppen kezdenls 
FORGET TASK s TASK ? 

IMMEDIATE ("imddldt") Mint emlltettuk? fordltdsl dllapotban a 
szavak nem keriilnek vdsfrehajtdsra* haneni bekertilnek az 
CtJ def lnlcl6ba. Sziiksdsr van azonban olyan szavakra Is? 
amelyek akkor Is vdsrrehajtddnakr ha fordltdsl dllapot 
van- J6 pglda erre a 5 sz6? amely nem tudnd mdskdppen 
klfeJtenl hatdsdt? azaz a def Inf. c 16 lezdrdsdt? hanem 
Lefordulna. Iluen szavakat ml Is l£trehozhatunk? ha a 
sz6 mesradtisdt kovetBen LelrJuky hosry IMMEDIATE- PU" 
s FORD ." Most fordltdsl dLLapot van" i 

IMMEDIATE {RETURN) 
Ezutdn a FORD sz6t aLkaLmazva esry def lnlcl6ban? a fentl 
uzenet fordltdskor foa mesfjelennl* az dj szdba pedis a 
FORD nem kerul be. 

LITERAL def In I c 16 Lrdsa kozben syakran eltlforduU hosy esy 
olyan dlland6t kell felhaszndlnl* ameLy valamllyen 
szdmltds eredrodnyekdpp adddlk. Ekkor mesrtehetJiik 
perszer hosry masrdt a szdmltdst tesszuk beLe az dj 
szftbar pi.: a kbvetkeztt szd a stack tetej£hez (l+3)*2-t 
ads 

: 8+ 1 3 + 2 * + i 

A mesaldds hdtrdnya? hosry a szdmltdst a s£p a sz6 
mlnden esyes v^srrehajtdsakar dJra elvdszl* J6LLehet az 
eredm^ny mlndlsr usryanaz. Vlszont az sem cdlszerlW hosry 
a konstans drtdkdft nil masrunk szdmltsuk kl« A probU?mdt 
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a kcivetkezti eUdrdssal lehet mesoldanls def lnLcl6 
kozben kapcsoLJunk vlssza kozvetlen vdsrrehajtdsl iriidbay 
v6sezzi\k el a klvdnt szdmltdst az erediri^nyt a stacker* 
hasyva? maJd td?rJurik vlssza a sz6 mearaddsdhoz* ds ott 
hlvatkozzunk a stack teteidn taldlhatd 6rtd>kre, A 
LITERAL sz6 az* amely def lnlcl6 kozben hlvatkozlk a 
stack teteJdm I6v5 szdmray a 

(< alapsz6 karcsoUa vlssza Idfllesfesen az 6rtelmezttt 
kozvetlen v<*3rehaJtdsl Pi6dba? a 

)) pedis vlsszat£r a deflnlclis Qzemm6dba. Ezeknek a 
szavaknak a felhaszndldsdval a fentl -pglddnk a 
kovetkeztikdjppen alakuls 
: 8+ (( 13+2*)) LITERAL + 5 

Ez a def In Lc 16 lefordltatt dllapotban teUesen azonos a 
: 8+ 3 + ; 
sz6val- A LITERAL 6s a (( IMMEDIATE szavak. (Ml6rt?) 

FREE ("frl") a felhaszndlhat6 szabad mem6rla byte-jalnak 
szdmdt teszl a stackre. 
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7. FGGGEL6K: A FELHASZNALOI SZAVAK JEGYZ6KE 



Az aldbbl sz6tdr tartalmazza a PRIMO FORTH osszes felhaszndldl 
szavdt> azaz mlndazon szavakatf amelyek a FORTH 6s az EDITOR 
szdtdrban vannak. A szavak folsoroldsa az ASCII rendezdtel 
sorrendnek roesrfeleltteTi tortent. 

Mlnden t<*teln£l az elstt sor a szd dltal a parameter stackre 
klfejtett hatdst IrJa le. A hdram kotfljel ( --- ) a S z6 
tev6kenys6sr6t UlusztrdUa? bat oldaldn a stack vtorehaJtds 
eltittl» jobb oldaldn a v6srehaJtds utdnl tartalma dll. 
<Ter»6szetesen csak az <§rlntett szlntlsr dbrdzolva.)" A stack 
teteJ6ne>k mlndktH esetben a Jobb szdlsB elem felel me#„ A stackben 
I6vti adatok jetbl^se a kovetkeztik szerlnt tort^nts 
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FuGGELeK 



JELOLCS HDAT TlPUSrt 



BITSZAMA DECIMALIS £RT£KHATARAI 



elm 


memdrlaciDi 


16 


... 65535 


L 


losLkal 6rtdk 


16 


(ham Is) vasy 
nem (Isaz) 


Isaz 


l-sraz I03. drt^k 


16 


-1 (eredmeny) 


ham Is 


ham Is las. drtdk 


16 





b 


tetszttleses byte 


8 


. . . 255 


kar 


mesjelenlthetti karakter 


8 


1 ... 151 


in 


elttJsles esesz szdm 


16 


-32768 ... 32767 


Ll 


eLtiJeltelen esSsz szdm 


16 


. . . 65535 


d 


elttJeles dunla pont. 


32 


-2147483648 ... 
2147483647 


ud 


elttJeltelen duHa pont. 


32 


... 4294967295 


sor 


scr semen be? Lull sor szaii 


. 8 


© ... 31 



Amermylben a k6rd6ses adat 8 bites* e*y folsO byte-tal 
kles6szltve keriil a stackbe, 32 bites adatndl az elOJelet 
tartaltnaz6 16 bites &rtd>k van felul (a masasabb helyl6rt6kft k<H 
byte) - 

ft sor jobb sz6L6n a iriesrfelelti sz6tdr mesmevez6se dlU ezt P 
beta eltizl mes* ha IMMEDIATE jellratt a sz6. A leLrds v6»6n a -» Jel 
arra utal* hosry e=*y rods Ik sz6 def lnLcl6Jdb6l tovdbbl lnformdcl6kat 
nyerhetunk. 
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! u elm FORTH 

u eltdrotdsa a clm-eru 
* udl — ud2 FORTH 

Beteszl udl utolsA Jesydt az output pufferbe (kdhpszerft. 

kllratds szerkeszt£se> . ud2=udl/BftSE 
*> ud elm b FORTH 

BefeJezl a kd>pszertt kllratds szerke>szt£s£t. elm az output 

puffer clme* b a strip's hossza. 
4BUF b FORTH 

ft mem6rla m£retdrttil fusrsrfi 6rt£ket ad vlssza* a rendszer 

ermyl screen szdmdra blztoslt helyet esyszerre a 

menitirldban. 
*S udl — ud2 FORTH 

Beteszl udl jesyelt az output puffer be? ud2«0 -* i 
4 elm u FORTH 

ft 16 bites u £rt£k felhozatala a clm-rOL. 

elm FORTH 

Haszndlatas 9 SZO 

elm a k<§rd£ses sz6 parameter meztiJ6nek clme <PFA). 
( P« FORTH 

MesJesyzd>s bevezetd?se. ft mesjesyz^s v£s£t ) jelzl- 
(( P* FORTH 

HaszndLatas 5 SZO ... (( .-- )) . .. ? 

IdSlesesen vlsszakapcsol kazvetlen v£srehajtdsl mddba. 
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F066EL6K 



((COMPILE)) P, FORTH 

Arm utcisltja az Interpreter*, » hosy a kovetkezb sz6t 

akkor Is fordltsa be» ha az IMMEDIATE* tlrusu. 
Def lnlcL6ban haszndUuk. 



)) 



*/ 



*/MOD 



+ ! 



+- 



+L00P 



FORTH 

* 

Vlsszakapcsol fordltdsl dllapotba. * (< 

nl n2 n3 FORTH 

n3-nl*n2. Tdlcsordutds eset6n hlbaJeLzdst ad! 

nl n2 n3 n4 FORTH 

n4=nl*n2/n3. 32 bites kozbensti eredmdnyt haszndl. -> / 

nl n2 n3 n4 n5 FORTH 

n5=nl*n2/n3> marad<*k n4. -> */ 

ul u2 u3 FORTH 

u3 s ul*u2. T&lcsordulds ellenOrz£s nines. 

u elm FORTH 

A clm-en l£v(J 16 bites 6rt6k tartalmdhoz u-t ad. 
Ttllcsordulds ellentJrz£s nines. 

nl n2 n3 FORTH 

n3=-nl> ha n2<©> esy6bk$nt n3~nl. Pozltlv nl eset6n tehdt 
nl felveszl n2 eltJJel^t (=n3>. 

n P, FORTH 

A clklusvdltoz6hoz n-et ad. Amennylben az new haladt dt a 
(v-lfV) Intervallumonr vlsszausrrds kovetkezlk a DO-hoz. 
Esy6bk6nt a v6srehaJtds a kovetkezO szindl folytat6dlk. 
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f u FORTH 

u a sz6tdrstack tetej^re keruL. * ALLOT 

ul u2 u3 FORTH 

u3 = ul-u2. T&lcsordulds ellen5rz6s nines. 
~> Pf FORTH 

Az aktudllsndl essryel nasjyobb sorszdmd screen betolt6se. 
-1 1 FORTH 

-1 6rt6kQ konstans. 
-ROLL ... u ... FORTH 

A feLstt u+1 elem vlsszafel* forsatdsa. i -ROLL » SUAPr 

2 -ROLL = -ROT. -> ROLL 
-ROT ul u2 u3 u3 ul u2 FORTH 

A foLsO 3 elem vlsszafel<§ forsatdsa. 

u FORTH 

Az u szdm kllrdsa az aktudLls szdmrendszerbem a LehetO 

Lesrkevesebb jesrsryel. A szdmot esy szdkoz kovetl. 

P» FORTH 

Haszndlata: ." szovesr" 

A szoves strlnsr kllrdsa. 
-R n u FORTH 

n kllrdsa u sz6less6sfft mezttbe jobbrdl Israzltva. 
/ nl n2 n3 FORTH 

n3-ent(nl/n2)> ahol ent(X> az a lesrnasryobb esr£sz szdmr 

amely nem nasryobb X-n6l. PI. * 3 2 / 1-et ad* -3 2 

/ "2-ttt. NuLldval osztds eset6n hlbaJelzest kopunk. 
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/MOD nl n2 n3 n4 FORTH 

n4=ent(nl/n2)» n3=nl-n2*n4 az osztds maraddka. -» / 

FORTH 

ertekft dlland6. 

0< r. L FORTH 

l=-l» ha n nesatlv? esyebkdnt 1=0. 

0= u L FORTH 

l=-l» ha u=0» esyebkdnt 1=0. 

0> n L FORTH 

l=-l» ha n pazltlv> esydbkdnt 1=0. 

1 i FORTH 

1 drtdku konstans. 

1+ ul u2 FORTH 

u2=ul+i. -> + 

1+! dm FORTH 

A clm-en levO 16 bites ertek tartalmdhoz 1-et ad. ■» + 

1- ul — u2 FORTH 

u2=ul-l. •* - 

1-! elm FORTH 

A clm-en levO 16 bites ertek tartalmdt 1-sryel csbkkentl. 

-» - 

2 2 FORTH 

2 ertek ft konstans. 

2! ud elm FORTH 

ud eltdroldsa a clm-en. 
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2& elm ud FORTH 

ft 32 bites ud ertek felhozatcilci a elm-rat. 

2+ ul u2 FORTH 

u2=ul+2. -» + 

2+! elm PORTH 

A clm-en levb 16 bites ertek tartalmdhoz 2-ttt ad» -» + 

2- ul u2 F0RTH 

u2=ul-2. -» - 

2-! elm FORTH 

ft clm-en levtt 16 bites ertek tartalmdt 2-vel csokkentl. -> 



2-ROT udl ud2 ud3 ud3 udl ud2 

ft folsti 3 duplaszi vlsszafele forsatdsa. 
2/ ul u2 

u2=ul/2. ■* / 
2C0NSTANT 

32 bites konstans def Inldldsa. -» CONSTANT 
2DR0P ud 

32 bites ertek ettdvolltdsa a stackrttl. 
2DUP ud ud ud 

32 bites ertek meskettBzese. 
20VER udl ud2 udl ud2 udl 

32 bites ertek meskettttzese a stack tetejen keresztul. 
2R0T udl ud2 ud3 — ud2 ud3 udl FORTH 

ft folstJ 3 duplaszd forsmtdsa. 



FORTH 



FORTH 



FORTH 



FORTH 



FORTH 



FORTH 
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2SUAP udl ud2 ud2 udl FORTH 

ft stack teteJ6n Uvti k<*t 32 bites 6rt<*k folcser6l<*se. 

2VARIABLE FORTH 

32 bites vdltoz6 deflnldldsa. -> VARIABLE 

3 3 FORTH 

3 6rt6k(\ konstans. 

s FORTH 

Haszndlatas s n6v ... J 

OJ sz6 deflnldldsa n<*v ndven. Ezutdn a n<*v sz6 

v6srrehajtdsa azonos lesz a ... hely£n dlld szavak 

vdsrehajtdsdnak sorozatdval. Mesr J esr yzendB m6s* ho»y a s 

bedllltJa az aktudlls keres6sl sz6tdrt a deflni.cl6s 

szdtdrnak roesrfelelOen. 
' Pf FORTH 

Beflnlcl6 lezdrdsar vlsszat6rd>s kozvetlen v6srrehajtdsl 

mddba. 
?S FORTH 

Esry screen betolt6s6nek (LOAB) v6sr6t Jelentl. Altaldban 

nines rd szuks<*9» mert a screen v6se autoroatlkusan 

lezdrja a betoltdrst. 
< nl n2 I FORTH 

l=-lrha nl<n2f esry<§bk<*nt 1=0. 
<* FORTH 

K^PSzerQ kllratds szerkeszt^sdnek kezdete. 
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< BUILDS FORTH 

Haszndlata: : n6v <BUILDS ... DOES) ... 5 

FORTH-tlFusil obJektum deflnldl6 sz6 fordltdsldejft 

vlselked6s6t lelr6 r6sz bevezet6se. 

nl n2 I FORTH 

L=-lf ha nl=n2f esfy6bk6nt 1=0. 
> nl n2 L FORTH 

l=-l> ha nl>n2* esry£bk6nt 1=0. 
>R u FORTH 

A param6ter stack teteJ6n I6v0 sz6t dthelyezl a return 

stackre. 
? cLm FORTH 

A clm-en I6vti 16 bites £rt£k kllratdsa. -» . 
?COMP FORTH 

Hlbaiizenetet ad* ha nines fordltdsl dllapot. 
?DUP u u (ha u=0) FORTH 

u u u (ha u< >G) 

16 bites 6rt6k felt6teles meskettttz^se. 
?ERR0R f b FORTH 

b sorszdmd hlbauzenet addsa* ha f Israz. 
?EXEC FORTH 

Hlbaiizenetet ad* ha nines kozvetlen v^srrehaJtdsl dllapot. 
?KEY ham Is (nines bevltel) FORTH 

— kar (van bevltel) 

A blllentyQzet lek6rdezd>s§t vdtezl. Ha taldl lenyomott 

blllentyttt* vlsszaadja a k6dJdt* e<?y6bk6nt hamls loslkal 
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6rt<*ket szolsdltat. Nem vdr bevlteLre! 
7LEAVE L P» FORTH 

Ha I hamlsf folytatja a v6srehaJtdst. Ellenke2tt esetben 

mesfelel a LEAVE sz6nak. -> LEAVE 
7STACK FORTH 

Hlbatizenetet ad> ha stack alul- ILL. ttllcsordulds van. 
7TERMINAL L FORTH 

L Israzr ha lenyomtdk a BREAK srombot* esry6bk6nt L ham Is. 

sor EDITOR 

HaszndLatas sor A szovesr < RETURN) 

A szoves-et besztirja az aktudLls screen sor-adlk sordba* 

rolnden ezt kovetO sor essryel leJJebb L6p> az utoLs6 pedis* 

elv^sz. ■+ S 



A 



ABORT 



ABS 



AGAIN 



ALLOT 



A Lapd L Lapotba he Lyez I a 
RESET-et nyomtunk volna.) 

nl n2 

n2=abs(nl) abszoLiltdrtdk k£pz6s. 



f uttatdr endszer t . 



FORTH 
(Mint ha 

FORTH 

P. FORTH 



Haszndlata: : n6v ... BEGIN ... AGAIN ... i 

V6stelen clklus Lezdrdsdra szolsrdl? vlsszausrrds a BEGIN 

utdnl sz6 v6srehaJtdsdra. 

u FORTH 

u byte-taL klterjesztl a szdtdrstack m<*retdt. Ha nines a 
mem6rldban elesrendB hely* hlbauzenetet kapunk. 
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AND ul u2 u3 FORTH 

Bltenk6ntl Losrlkal £S mQvelet vdsrz^se. 
AT bl b2 FORTH 

A kurzort a bl sor b2 oszlopdba dllltJa. 
AT? bl b2 FORTH 

A kurzor a bl sor b2 oszlopdban All. 

B "~ EDITOR 

A lesrutoUdra mesrtaldlt karaktersorozat eleJ<*re dll. ■+ F 
BASE elm FORTH 

Armak a rendszervdltoz6nak a clm-6t ad J a vlssza* amelylk 

az aktudlls szdmrendszer alapszdmdt tdroUa. 
BEGIN PfFORTH 

Clkllkus vezdrldsl struktdra bevezetti szava* esyben a 

clkLus kezdet6t az 5t kovetti sz6ban hatdrozza mes. ■* 

AGAIN END REPEAT UNTIL WHILE 
BL sz6koz FORTH 

A sz6koz karakternek mesfelelB kddot teszl a stackre. 
BLANKS elm u FORTH 

A clm-tttL kezdttdtien u darab sz6koz karaktert tesz le. 
BOUNDS clml u clm2 clml FORTH 

clm2=clml+u- StrlnsU?lrdsb6L DO-clklus param6tereket 

dlllt etti. 
BYE FORTH 

Mlsszat6r a BASIC rendszerhez. 
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C EDITOR 

Haszndlotas C szoves 

A szoves-et bendsolJa a szerkeszttt kurzor pozlcl6Jdba. •+ 

h 
C! b elm FORTH 

A clm-re leteszl a b bate-ot. 
C& elm b FORTH 

A clm-rOl felhozza a b bate-ot. 
C» b FORTH 

A szdtdr kovetkeztt (ires helaere belrja a b bate-ot. ■♦ t 
C/L — b FORTH 

A kepernattn esra sorba klfertt karakterek szdma. (42) 
C/LL b FORTH 

A screen soralnak hossza. (32) 
CALL ul u2 u3 u4 elm u5 u6 u7 u8 FORTH 

Gera kddd rutin hlvdsa clro-en. Belepeskor AF=ulr BC=u2» 

DE=u3> HL=u4> vlsszatereskor u5=AFi- u6=BC> u7=DE es 

u8=HL. A szubrutln RET-tel terjen vlssza> az alternatlv 

resasztereket? IX es IY resrlsztereket nem ronthatja. 
CFA clml clm2 FORTH 

clml esra szd parametermeztiJere? clm2 a kddmezeJere mutat. 
CLEAR b FORTH 

A b-edlk screen torleser esraben kUelolese szerkesztesre. 

Atkapcsot EDITOR m6dba. 
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CLS F0R TH 

LeMrll a k<**ernytit* <*s a kurzort a bat felsB sarokba 

dllltja, 
CHOVE clml clm2 u FORTH 

ft clml-tfll kezdve u byte-ot dtvlsz a clm2-n kezdBdtJ 

tartomdnyra. 
CONSTANT u FORTH 

Haszndlata: u CONSTANT n£v 

Esry n6v nevft u 6rt£kft konstanst deflnldl. 
COPY bl b2 — EDITOR 

A bl sorszdmd screen tartalmdt dtmdsoUa a b2 sorszdmiiba. 
COUNT clml clm2 b FORTH 

A c Iml-en I6vti f FORTH szabvdny szer Int tdr o It 

karaktersorozat clm2 kezdticLm<H <*s b hosszdt adJa mes. 
CR FORTH 

OJ sorba vlszl a kurzort. 
D sor EDITOR 

Az aktudlls screen sor-adlk sordt kltorll a screenbOLf de 
elmentl PAD-re- Mlnden ezt kovettt sor esrsyel foUebb l£p? 
az utols6 pedis sz6kozokkeL Lesz tele. -> PAD 

D+ udl ud2 ud3 FORTH 

ud3=udl+ud2. Ttilcsardulds ellentirz^s nines. 

D+- dl n d2 FORTH 

d2=-dl> ha n<0> esy<*bk<*nt d2=dl. -> +~ 
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D- udl ud2 ud3 FORTH 

ud3=udl-ud2. Tulcsordulds ellenOrz<*s nines. 
D->S d n FORTH 

BupIo pontos szdm konverzl6ia esyszeress£. Tulcsordulds 

eset6n hlbaJelzdst ad. 
D. d FORTH 

d kllratdsa. ■» . 
B.R d u FORTH 

d kllratdsa u sziHessdsu meztibe. •* .R 
DO< d I FORTH 

l=-l» ha d nesatlvf esrydbkdnt 1=0. 
DG= d I FORTH 

l=-l> ha d=0» eary^bk^nt 1=0. 
D0> d I FORTH 

l=-l> ha d pozltlvf esry<*bkd>nt 1=0. 
02/ dl d2 FORTH 

d2=dl/2. ■» 2/ 
D< dl d2 I FORTH 

l=-lr ha dl<d2» esry<*bk<*nt 1=0. 
D= dl d2 I FORTH 

l=-lf ha dl=d2» esy<*bk<*nt 1=0. 
D> dl d2 I FORTH 

l=-l» ha dl>d2» esry6bk<*nt 1=0. 
DABS dl d2 FORTH 

d2=abs(dl> dupla szavas abszolut6rt<*k k6pz6s. 
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DEC. n FORTH 

n kllratdsa tlzes szdmrendszerben. * . 
DECIMAL — F0RTH 

Att£r6s tlzes szdmrendszerre. * BASE 

DEFINITIONS FO rth 

Az aktudlls keres6sl sz6tdr lesz esryben a deflnlclds 
sz6tdr Is v&srrehaJtdsa utdn. 

DELETE b EDIT0R 

b szd»d karakter torL6se a szerkesztO kurzor ©Lett. -> M 

DIGIT kar nl n2 Israz <ok). FORTH 

kar nl ham Is <nem ok) 

A kar karaktert me*pr6bdUa nl szdmrendszerbell 
szdmjesryk6nt 6rteLmeznl. Ha slkeruU* vtsszaadja a 
mesffelelS n2 szdmot 6s esy Lsraz loslkal 6rt6kkel t6r 
vlssza. EllenkezB esetben csak a hamls loslkal 6rt6k 
kerul a stackre. 

DLITERAL d P,F0RTH 

A fordltdsldejft d dupla pontos szdmot futdsldBben helyezl 
a stackre. -> LITERAL 

DNEGATE dl d2 FORTH 

d2=-dl. 

DO ul u2 p, FORTH 

ClkLusvdltozdvaL vez6reLt clklus nylt6 szava* e»yben 
mesjeloll az 5t kovettJ sz6t» mint a clklusma* elsfl 
utasltdsdt. ul a clkLusvdLtozi v6sr6rt6ke> u2 a 
kezdttertdke. -> +L00P LOOP 
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DOES) elm FORTH 

FORTH-tlpusft obJektum deflnldld szd futdsldeJft vlselkedd- 
sdt lelrd rdsz bevezetdse. A elm a def InldLt obJektum 
kezdBclme. -> < BUILDS 

DPL elm FORTH 

Esy rendszervdltoz6» ameLylk szdmbeolvasdsndl mesadJa a 
tlzedespontt6L Jobbra esti szdmJesryek szdmdt. Pont 
hldnydban -i-et ad. 

DRAW bl b2 F0RTH 

Esyenest hdz az X=bl Y=b2 koordlndtdJtl pontls. 

DRAUREL bl b2 F0RTH 

Esryenest h6z az X-X+bl Y-Y+b2 koordlndtdJd pontic. 

DROP u F0RTH 

EltdvolltJa a stack teteJdn IdvB drtdkdt. 
DUP u u u FORTH 

Meskettbzl a stack teteJdn Idvti drtdkdt. 
E sor EDITOR 

Az aktudlls screen sor-adlk sordt szdkdzokkel toltl fet. 
EDISYS PiEDITOR 

A szerkesztdshez szuksdses rendszerszavakat tartalmaz6 

sz6tdr neve. -> SYSTEM 
EDITOR P* FORTH 

A szerkesztdshez szuksdsres felhaszndl6l szavakat tartaL- 

mazb szdtdr neve. 
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ELSE P. FORTH 

Felt6teles eldsraztatds "hamls" dsdt vezetl be. -» IF 
EMIT kar FORTH 

A kar k6di"i karakter kllrdsa a k^pernyflre. 
EMPTY b — FORTH 

A b szdmti screen dttal a mem6rldban elfoslalt heLyet 

felszabaditja. A b screen tartalma elv6sz! 
EMPTY-BUFFERS — FORTH 

A screenek dltal a mem6rldban elfoslalt heLyeket 

felszabadltja. -> EMPTY 
END p, FORTH 

Az UNTIL r£*l neve. -* UNTIL 
ENDIF p, FORTH 

A felt^teles eldsraztatds v<*sr£t jelzl. -> IF 
ERASE dm u FORTH 

A clm-tttl kezdve u byte-ot klnulldz. 
ERROR b FORTH 

b sorszdmti hlbatizenet addsa. 

EXPECT elm b FORTH 

Maximum b szdmft karakter beolvasdsa a blllentyfltzetrttlr a 
szovesrbevltelnek mesfetelti formdban. A karaktersorozatot 
byte zdrjar 6s a clm-tOL kezdttdflen keruL a memdrldba. 

F EDITOR 

Haszndlata: F szbves 

A szerkeszttt kurzor pozlcl6Jdt6l kezdve keres az aktudlls 

screenbenr amlsr a szovesr-et mesrtaldUa. A kurzort a 
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t 

mestaLdLt karaktersorozat mosrd dLLltJa. AmennyLben a 

szoveset a screen vdsrdLsr nem taLdLJa* hLbauzenetet ad. *+ 

M 
FILL dm u b FORTH 

A clm-ttiL kezdOdben Letesz a memdrtdba u darab b byte-ot. 
FORGET FORTH 

HaszndLata: FORGET ndv 

Tor LI a szbtdrstackbtiL a ndv sz6t ds az azt fLztkaLLasr 

kovetd vaLamennyL szdt. AmennyLben esry nem aktudLLs 

sz6tdr kettdvdsdsdra keruLne sorr hLbauzenetet kapunk. 
FORTH P. FORTH 

Az a Lap feLhaszndLdL sz6tdr neve. 
FREE u FORTH 

u a rendeLkezdsre dLL6 szabad memdr Later Q Let nasrysdsdt 

adJa byte-okban. 
H sor EDITOR 

Az aktudLLs screen sor-adLk szovesrsordt dtmdsoLJa a 

PAD-re* a screen tartaLma nem vdLtozik. -> PAD 
H. u — FORTH 

u kLlratdsa tLzenhatos szdmrendszerben. ■* U. 
HERE elm FORTH 

A sz6tdrstack kovetkezO szabad heLydnek cLm-dt adJa 

vLssza. 
HEX — FORTH 

Attdrds tLzenhatos szdmrendszerre. •* BASE 
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HOLD kar FORTH 

K6pszcr0 kllratds szerkeszt6s6n6l a kar k6dd karakter 

behel»ez£se a klmentt karaktersorozatba. •*<***> 
I n FORTH 

Az aktudllsan lesrbelstt DO-clklus clklusvdltoz6Jdt teszl a 

stackre. 
I sor EDITOR 

A PAD tartalmdt beszdrja az aktudlls screen sor -ad Ik 

sordba. ■* A 
I' n FORTH 

Az ak tud L Isan lesrbe IstJ DO-c Ik Lus elk Lusvd Ltoz6 J dnak 

v6*6rt6k6t teszl a stackre. 
ID. cL» FORTH 

A dm n6vmez5JCt sz6 nev6t IrJa kl. 
IF I Pf FORTH 

Haszndlata: i n6v ... IF tev.l ELSE tev. 2 ENDIF ... ; 

Felt6teles eldsraztatds bevezettt utasltdsa. Ha I Israz* a 

tev . i r 6sz ha J t6d Ik v6snr e ? esry6bk6nt a tev . 2 » ma j d 

mlndk6t esetben az ENDIF utdn folytatddlk a pro3ramv(*srre- 

hajtds. 
IMMEDIATE FORTH 

A lesutoUdra deflnldlt sz6 IMMEDIATE UpusiI lesz> azaz 

deflnlcl6 torzs6ben Is v^srrehajtddlk* 6s nem kerul 

lefordltdsra. 
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INPUT n vasry u FORTH 

Beolvas esy esryszeres pontossdsri szdmot a blllentyttzet- 

r5l. Ttil nasy szdm mesaddsa eset6n hlbauzenetet ad! 
INPUT. ud vasy d FORTH 

Beolvas esry dupla pontossdsrCi szdmot a blllentyQzetrfll. 
j „„ n FORTH 

Az aktudtlsan belutrtit a mdsodlk mdlysdsa DO-clklus 

clklusvdltoz6Jdt teszl o stackre. 
j, „. n FORTH 

Az aktudtlsan belulrttl a mdsodlk m<Hys£srQ DO-clklus 

ctktusvdltozbJdnak v6sM*rt<*k<H teszl a stackre. 
K — n FORTH 

Az aktudtlsan beliilrtil a harmadlk m<Hys<*srtt DO-clklus 

clklusvdltozdJdt teszl a stackre. 
K , „_ n FORTH 

Az aktudtlsan betutrtil a harmadlk m<*lys<*sfO DO-clklus 

clklusvdltoz6Jdnak vdsf<*rt<*k<*t teszl a stackre. 
KEY kar FORTH 

A kovetkezO be3<*pelt karakter kddjdt teszl a stackbe. 

Mlndenk£ppen vdr esy belrdst! 
L EDITOR 

Az aktudtls screent a k6pernyttre llstdzza. 
LATEST elm F0RTH 

A lesmtoUdra deflnldlt sz6 n6vmezeJ6nek ci.m-£t adja 

vlssza. 
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LEAVE Pf FORTH 

Az aktudllsan lesrbelstt DO-clklus azonnall elhasrydsdt 
eredmdnyezlr a vdsrrehajtdst a zdr6 +LOOP vasry LOOP utdn 
folytatva. ■* DO 

LFA clml clm2 FORTH 

clinl esry sz6 parameter mezejdnek clme* clm2 pedis 
usrwanennek a szbnak a csatoldmezti clme. 

LIST b FORTH 

A b sorszdmtl screent a kdpernyOre llstdzza* ds esyben 
mesrJeloll aktudlls screenkdnt. Sziiksdsr esetdn kazettdrdl 
toltl be. 

LITERAL u Pf FORTH 

Deflrtlcl6 belsejdben haszndUuk- A stack fordltdsldejtt 
lesfelsti elemdt lefordltja a szdtdrstaclibe oLy mddon* 
mlntha kozvetlenul besrdpeLtuk voLna a nekl mesrfeleltt 
drtdket. 

LL sor EDITOR 

Az aktudlls screen llstdzdsa a sor-adlk sort6l kezdve. -> 
L 

LOAD b FORTH 

A b sorszdmd screent betoltl* azaz a benne IdvS 
Informdclit beolvassa* mlntha a blllentyttzetrtil jonne. ■+ 
LIST 

LOOP P* FORTH 

*Mesfelel az i novekmdnytt +L00P lezdrdsnak. -> +L00P 
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M n EDITOR 

A szerkeszttt kurzort n pozlct6val (elttjelesen) elmozsat- 
ja» maJd kllrJa a kurzort tartalmazo sort» es« I 
karaktertj valamlnt a sor szdmdt. A szerkesztO kurzor 
pozLclbJdt esy _ aldhdzds karakter Jelzl. Ez a 
kllndul6pontJa a soron belull szerkeszttt utasltdsoknak. 

M* nl n2 d FORTH 

d=nl*n2. Kevert pontossdsrd szorzds. 

M/MOD dl nl n2 n3 FORTH 

n3-ent<dl/nl)» n2=dl-nl*n3 az osztds maradeka. •* / 

MAX r.l n2 r.3 FORTH 

n3 az nl es n2 koziil a nasyobblkkal esyenlo. 

MIN nl n2 — n3 FORTH 

n3 az nl es n2 koziit a klsebblkkel esyenlB. 

MOD nl n2 n3 FORTH 

n3 az nl/n2 osztds maradeka. -» /MOD 

N EDITOR 

A lesutdbb meStaldlt karaktersorozat tovdbbkeresese. -» F 

NEGATE nl n2 FORTH 

n2=-nl . 

NFA clml clm2 FORTH 

clrol esry sz6 parameter mezejenek c liner c«.m2 pedis 
usryanennek a sz6nak a nevmezti clme. 

NOT ul u2 FORTH 

u2 ul bltenkentl komplemense. 
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OFF FORTH 

Fekete "szln" hedllltdsa PLOT-hoz. •* ON 

ON FORTH 

Feh6r "szln" bedllltdsa PLOT-hoz. •* PLOT 

ON? bl b2 I FORTH 

I Lstazf ha az X=bl Y=b2 koordlndtdjft pont feh£r* 
esry6bk6nt L hamls* 

OR ul u2 u3 FORTH 

Bltenk^ntl loslkal VA6Y mttveLet vd?srz<§se. 

OUT dm FORTH 

Rendszervdltoz6> amelyet ml-nden EMIT esrsruel mesrnovel. A 
kllratdst Lehet sesrlts<*Sf6vel eltenttr Iznl, ■* EMIT 

OVER ul u2 ul u2 ul FORTH 

Stacktartalom mesrkettflz£se a stack teteJdn fceresztul. 

P sor EDITOR 

Haszndlatas sor P szovesr 

A szovesr elhely<?z<*se az aktudlis screen sor-adlk sordban, 

A sor kordbbl tartalma a PAD-re kerul. 

P! b elm FORTH 

A elm szdmti portra klkuldl a b byte-ot, 

P& elm b FORTH 

A elm szdmft Portr6L beolvas esry b byte-ot. 

PAD elm FORTH 

Esry szovesrpuffer clm-<H adja vlssza. Az EDITOR 
SorszerkesztO paranasal haszndlJdk ezt a teruletet sorok 
dtmenetl tdroldsdra. 
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PFA 



PICK 



PLOT 



PROMPT 



clml clm2 FORTH 

clmi esy sz6 n^vmezej^nek clme> ci.m2 pedis usfyanennek a 
sz&nak a paramdrtermezb clme. 

... ul ... u2 FORTH 

Ha a stack LesfblsS szlntJdt 0-val jeloljuk* mleltitt ui 
rdkeriilt voLna» akkor az utasltds ul hely<*re a stack ul 
m<Hys£srtt eleiHfrt IsitkHU nesr. PI.: PICK ■ DUP 1 PICK = 
OVER. 

bl b2 FORTH 

A LesmtoUdra kladott ON vasry OFF utasltdsnak mesffeleltten 
az X~bl Y=b2 koordlndtdJd pontot klsydjtja vasy eloltJa. 
KlsyCutds az ON utasltds hatdsdra kovetkezlk be* 
bekapcsoldskor ez az alapdlLapot. 

FORTH 

Haszndlata: PROMPT kar. 

Hatdsdra az aktudLls keres<*sl szdtdr beJelentkezO 
karaktere kar. Lesz. Amennylben nem adunk mesr karaktert* 
ez a szdtdr nem ad beJelentkez6st. 

u FORTH 

ft return stack teteJ6nek tartalmdt dtmdsoUa a paratwtter 

stackbe. 

5or EDITOR 

Az aktudLls screen sor-adlk sordt folcser6ll a PAD-en 
Levti karaktersorozattal. Az eredetl sor a PAD-en 
mesrSrzOdlk. 
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R> u FORTH 

A return stack tetej^nek tartalmdt dtvtszl a parameter 

stackbe. 
REPEAT P? FORTH 

BEGIN ... UHILE clktus zdr6 utasltdsa. V6srrehaJtdsakor a 

vez6rl6st a BEGIN utdnra adja vlssza. -> UHILE 
ROLL ... u .-. FORTH 

A fetstt u+1 elem vlsszafel6 farsratdsa. 1 ROLL = SWAP* 

2 ROLL = ROT- u a forsratds sordn 6rlntett lesnasryobb 

stackm<§lys6sr. -> PICK 
ROT ul u2 u3 u2 u3 ul FORTH 

A folstl 3 sz6 forsratdsa. 
S sor EDITOR 

A kordbbl sor-adtk szovessor a sor+1-edlkbe 16? * 6s 

usruanlsfyy ettttL lefel£ mlnden sor esrsyel Lcntebb kerul. 

Az utols6 <3i-es) sor elv6sz* a sor-adlk pedis iXres lesz. 
S->D n d FORTH 

Esryszeres poritossdsd szdm dupla pontossd konvertdldsa. 
SAVE b FORTH 

A b sorszdmd screent masm6szala»ra mentl. 
SCR? FORTH 

Kllrja a kdjpernyBre a meimbr Idban taldlhatd screenek 

sorszdmdt* vaLamlnt az elsB sorukat. 
SIGN n d d FORTH 

Ha n nem nesratlv* csak a stack tar ta Lorn midosul. 

Esy6bk6nt betesz esry mi.nuszjel karaktert az output 
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puffer be. * HOLD 
SL EDITOR 

A szerkesztb kurzart tartalmaz6 sor korny<*kdt llstdzza 

kl. ■* L 
SMUDGE FORTH 

A LesutoUdra deflnldlt sz6 "smudsre-bltj^t" InvertdUa 

mes* ezzel mesrakaddlyozva vasy lehetflv£ t6v© a sz6 

mestaldLdsdt keres^skor. 
SPACE FORTH 

E*y sz6koz karaktert lr a k^pernytt aktudlls pozlclbjdba. 
SPACES u FORTH 

u darab szdkoz karaktert lr a k<*perny8 aktudlls 

pozlcl6Jdt6l kezdve. 
SWAP ul u2 u2 ul FORTH 

A stack felsfl k6t eleimH mescser<Hl. 
SYSTEM Pf FORTH 

A reridszerszavakat tartalmazb sz6tdr neve. A kezdB 

prosrramozb szdmdra dhrdektelen vasry "vesztHyes" szavakat 

taldthatjuk Itt. 
T sor EDITOR 

A sor~adlk szovessor elejdre dllltJa a szerkesztfl 

kurzort. ■* M 
TASK FORTH 

Nem cslndl semmlt* de el Lehet feleJtetnl. 
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TEST b FORTH 

ft b-edlk screent osszehasonlltja a mem6rldban levti azonos 

sorszAmA screenneL. Elt6rd?s eset£n hlbauzenetet ad. 
THEN P> FORTH 

Az ENDIF mdslk neve. * ENDIF 
TILL EDITOR 

HaszndLata: TILL szoves 

ft szerkesztti kurzort6l kezdve a szovesr v£sr<H$f tor 1 1 a 

karaktereket. Ha az adott szovesr nines a ku.rzort 

tartalmaz6 sarban* hlbajelz£st kapunk? ekkor a kurzor a 

kovetkeztt sor elej£re dll. 
TOP EDITOR 

ft szerkesztti kurzort a screen els5 sora els6 kara.ktere 

eL6 dLUtJa. 
TYPE elm b FORTH 

A clm-ttiL kezdve b darab karaktert lr a k^pernytire* 
U* ul u2 u3 FORTH 

u3=ul*u2. ■* * 
U. u FORTH 

EltiJeltelen szdm ktlratdsa. -» . 
U/MOD ul u2 u3 u4 FORTH 

u 4-ul/u2 LefeLe kerekltve* u3~ul-u2*u4 az osztds 

marad<*ka. Null Aval osztds eset£n hlbajelz6st ad! 
U< ul u2 L FORTH 

I Iffaz* ha ul<u2r esry&bktJnt hamls- 
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U> 



UD* 



UD- >S 



UD/MOD 



UD< 



UD> 



UM* 



UM/MQD 



UNTIL 



ul u2 L FORTH 

I lsaz» ha ul>u2» eayebkdnt hands. 

udl u ud2 FORTH 

ud2=udl*u. Tulcsordulds eseten hlbaitzenetet ad. 

ud u FORTH 

Konvertdldst vesez. Hlbdt jelezr ha a konverzld nem 

hajthatd vdsre. 

udl ul --- ud2 u2 FORTH 

Dupla pontos szdm osztdsa 16 bites drtekkeU de as 

eredmeny ud2 32 bites. u.2 az esyszeres porrtossdsd 

maraddk. 

udl ud2 I FORTH 

I lsaz> ha udl<ud2> esydbkent ham Is. 

udl ud2 I FORTH 

I Isazi ha udl>ud2> esyebkent ham Is. 

ul u2 ud FORTH 

Vesyes pontossdsrti szorzds. ud=ui*u2 

ud ul u2 u3 FORTH 

u3=ud/ul lefele kerekltve? u2=ud-ul*u3 az osztds 
maraddka. TCtlcsordulds esetdn hlbaJelzdst ad! 

L P> FORTH 

Haszndlata: : ndv ... BEGIN tev. UNTIL ... 5 
Feltdtellel vezdrelt clklus. Ha I Israzr az UNTIL utdn 
kovetkeztt szdn folytatddlk a vdsrehaJtdsr esyebkerit 
vlsszausrds a tev. clkllkus Ismdtldsdre. 
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VARIABLE u FORTH 

Haszndlata: u VARIABLE n6v 

u kezdti6rt6ktt n£v nevft vdltoz* de>f Inldldsa. u k£sBbbl 

v^srrehajtdsakor a tdrolt 6rt£k clih6t teszl a stackbe. 
VLIST — FORTH 

A szitdrl elemek nev£nek klllstdzdsa az aktudlls keres£sl 

sz6tdrt6l Indulva. 
VOC. FORTH 

Az aktudlls dgflnlclAs szdtdr nev£t IrJa kl. 
VOCABULARY F0 RTH 

HaszndLata: VOCABULARY n*v 

OJ sz6tdr def Inldldsa n<*v n<*ven. A n£v k^sflbbl 

v£snrehaJtdsakor a n6v sz6tdr lesz az aktudlls keres£sl 

sz6tdr„ 
UHILE I P,F0RTH 

Haszndlata: : n£v . . BEGIN .. WHILE tev. REPEAT .. ? 

Felt6tellel vezdrelt clklus? elej£n tortdnfl vlzssrdlattal. 

Amennylben L hamlsr a vez6rl6s dtadAdlk a REPEAT mbsottl 

r6szre?y azaz elhasyjuk a elk lust. E«?y£bk6nt a tev. 

v£srrehaJtdsra kerulr maJd a REPEAT-n<H vlsszausrunk a 

kezdti BEGIN utdr.. 
X elm FORTH 

Az aktudlls srraflkus- kllratdsl *>ozlcl6 X koordlndtdjdt 

tartalmazd vdltozA clm<H adJa. 
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X EDITOR 

Haszndlata: x szovesr 

Meskeresl 6s kitorll a szovesr karaktersorozat WivetkezB 

elflfordUldsAt. +HF 
XOR ul u2 u3 FORTH 

Bltenkentl loslkal KIZARO VAGY advelet vearzese. 
XYSAVE bl b2 FORTH 

X=bl Y=b2 ertekeket AUlt be <i»t-s DRAU-hoz). «* X Y 
Y elm FORTH 

ftz aktuAtls sraflkus kllratdsl pozlcio Y koordlndtdjdt 

tartalmaz6 vdltoz6 cL«et adJa. 
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